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Mark Sense 
Card Reader 


DESIGNED FOR EDUCATIONAL USE 

CONNECTS DIRECTLY TO APPLE SERIAL INTERFACE 

APPLE BASIC CARDS GIVE EASE OF PROGRAMMING 

NO SOFTWARE REQUIRED — UTILIZES BUILT-IN MICROPROCESSOR & FIRMWARE 


RESIDENT SOFTWARE FOR APPLESOFT COMMANDS, MULTI-CHOICE QUESTIONS & 
“RAW DATA” 


CAN BE LOCATED AWAY FROM APPLE FOR REMOTE JOB ENTRY 
DIRECT CONNECTION TO PRINTER OR OTHER OUTPUT DEVICE 
EXECUTIVE SOFTWARE ON DISK GIVES HARD COPY LISTING & RUN OF PROGRAM 
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Copyright Notice : 

All material contained within 
Australian Personal Computer 
is protected by the 


Commonwealth Copyright Act 


1968. No material may be 
reproduced in part or whole 
without written consent from 
the copyright holders. 


APC welcomes all unsolicited 
material (written, photographic 
& illustrative) and, although no 
guarantee can be given as to its 
safe return, reasonable care and 
attention will be exercised. 


Guidelines for Contributors 
APC welcomes articles of 
interest. Don’t be put off 

if your style of writing is 
“under developed’... true 
worth lies in the content, 

and shaping features comes 
naturally to us! Manuscripts 
should not exceed 3,000 words 
and authors are asked to use 
triple spaced lines with a wide 
left-hand margin; diagrams, 
listings and/or photographs 
should be included wherever 
possible. Please enclose a 
stamped, self-addressed 
envelope if you would like 
your article returned. 


Because of the foregoing, it 

is necessary to add that the 
views expressed in articles we 
publish are not necessarily those 
of Australian Personal 
Computer. Overall, however, 
the magazine will try to 
represent a balanced, though 
independent viewpoint. Finally, 
before submitting an article, 
please check it through 
thoroughly for legibility and 
accuracy. 


Subscription Rates: 

Australia $24.00 for 12 issues, 
New Zealand $30.00 for 12 
issues (surface mail). Prices 
include postage and packing. 
Supplies to specialist shops can 
be arranged by negotiation 
direct with the publishers. 


APC 1 


TRSSO MEANS BUSINESS 


We are legal agents for Taranto, Apparat, Acorn, Mumford, Shrayer, Archbold, Instant Software, Personal Software, Adventure International, Micro- 
soft, Cottage (U.S.A.), Hayden, Butterworths, and many other fine firms. We always try to stock the best lines of each manufacturer and offer a 
full replacement service on any programmes bought from us that become faulty or damaged. 

Due to extensive contacts in the U.S.A., we can import any item for you, from any manufacturer (from $5 to $10, 000). Let us have the worries! The 
cost to you will be most reasonable. Leasing - lay by - or credit can also be arranged. 


IMPROVE TRS—80 PERFORMANCE WITH NEW DOS+ 


INTRODUCTORY SPECIAL 
NEW DOS+ and the very Best of Apparat’s disk utility programs $99 (a $250 value). 40 Track version $110. (NEW DOS 35 $49 — NEW DOS 40 ($60). 


TRS-80 SOLUTION 


Cribbage / Checkers 

Chess 

Star Trek 2 

Cash Journal “Interacts with Taranto 
General Ledger’’. 


PROGRAMMING AIDS 
Combination Coding/CRT forms 


HARDWARE Backgammon / Keno . 
3 speed modification — a very simple kit; Teacher : ; 
only 4 connections, easily reversible "$29.95 Ham Package 
Blank computer cassettes ea Azimuth Finder 
eater arsciesd no dropout $1.80 MusicTutor .  . 
| _5—$8.8 tO S16. oe 100 a ~ $100. ‘00 Star Trek *“‘Acorn 
Reverse wiies ee . $31.00 Bandito % ae 
Archbold speed up " | | $35.00 German ‘Disk’ 
Rien Pencil L/case i kit with ‘ak ence : 
nstructions ..__. esate cee . 3 = 
Modem “CAT”’ een RG, claret PEs $195.00 CCA DMS disk 32K 
Green Screen .. 7 7 $35.00 Stimulating simulations 
Electric Paint Brush . 
SOFTWARE Time Trek ‘‘W/Sound” 
Sargon 1 . .  « $25.00 Level 3 Basic S 
Sargon (version 2). =>... $37.50 “Typing FEutor 
2 
1 
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Fiow Chart sheets 280mm x 406mm 

in 50’s — 2 pads. : 
Giant Video Display pads. sa, 5 pads 


SUNDRIES 
Diskettes “Scotch” 5% s.s. EATER 
The Best — Don't risk your data 10 for $60. 00 
with cheaper disks 100 for $550.00 
House brand 1 — $5.00 10 — $45.00 
Combination QSL album and Log Book $9.95 
Binders for CB Action 5 co oe B6.50 
Binders for Amateur Radio Action ig ea 


MODIFICATIONS 
Instailations (send keyboard by Comet, Ipec etc.) 
Lower Case (electric pencil/scripsit) . $40.0 
16K upgrade kit (Memory) 
installation of Memory . 
installation of Reverse Video 
Installation of Speed Up Board 
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Microchess ‘‘still the best seller” Editor / Assembler 
Level 1 and Level 2 4K. ; 4.00 Adventure -Snan® 32k” 
Golf and Crossout “2 programmes” . 0.00 Fortran 
Game Playing with Basic ‘‘TRS Apple Pet” Spooler 
Tapel, Tape2,Tape3. .. (each) $12.50 mu MATH : 
Santa Paravia “Become the Ruler ofa Basic Compiler. 
Medieval City Taipan ‘ 
Graphics TRS- 80 L 1 and 2 gt aoe ; Alien Invasion . 
General Mathematics System Savers . 
TRS-80 L1 and L2 Apple 2 : 3 Aterm ‘““Terminal’’. 
Space Trek iV Habis or ae War" Print to L Print etc. . 
ae pee oe > : pee a neg Be Translater 
acker i Sin: S qi te ep: ae Z assette Labe aker . 
GammonChallenger . . . .. . : Disassembler . TRS-80 BUSINESS SYSTEMS 
Codebreaker “Sound” . . . . . : Engineering — Beam Analysis 5 (Model 1 — Level 2 Osborne 
Stock Market . ‘ ° . Builders Construction Ledge General Ledger 
Special Delivery Mail List) ; : ; 32K with 3 disks $200.00 Accounts P bi 
Complex Matrix Maths. PET TRS-80 Investment Analysis — Real Estate ayanle $99.00 each 
r loere Ad 2a: : : eo ae ‘ : : : : Accounts Receivable ve See 
Checker Kind... 2 oS a ee eS : is we ici 
Flight SP pe he rt aS ees Amateur Radio = Beam Direction Finder Invoicing and Inventory 
Peiewall Piet a Soa a eS Se : Cassette 5 . - $14.00 
Witty Land 2... 4.) oh. (each) : Disk Index : é $19.95 
Business System complete “even prints 
its own invoice form”. . 210.00 
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QUALITY QSL PTY. LTD. 


“ 3 = , es 26 Station Street, Nunawading Vic. Australia (03) 877 6946 
D FE - O R EST SO FITWAR - a Post.included at no charge, however we suggest certification 
| ae or registration. 
~ Trade Enquiries welcome. 


General Ledger/Cash Journal: handles up to 7000 transactions 

on 500 different user-defined accounts. It keepstrack of them ADVENTURES 

Be er ao veer eae ene eared EPO | 1-8 on Tape $16.00 each, 1 on DISK $19.00 
Accounts Payable/Purchase Order: generates the purchase pets 2 on DISK $29.00, 3 Bh DISK $39.00 


order and posts the item to payable when the goods are re- 
ceived. Invoice-linked, it calculates and prints checks and 
aged ledger reports and links fully to the general ledger. 


Accounts Receivable/Invoicing: keeps track of billed and é 

unbilled invoices, open and closed items, aging and service ee TRS- 80. 
charge calculation. It prints statements, links to the general 

ledger, and can work within either an invoice-linked or bal- ae 7 
ance-forward accounting system. BYPASS THE KEYBOARD 
Payroll/Job Costing: computes regular, overtime and piece- 

work pay, keeps employee files, figures taxes and deductions, INTERACT WITH THE 
prints checks, journal, 941-A and W-2 forms, and breaks out SCREEN DIRECTLY 


individual job costs. APPLICATIONS 

These Model I! programs are completely customtailored, o Education 

which explains their $249.95 price. Before we'll send you a o Business 

disk, you have to fill out a detailed questionnaire that tells o Games 

us your precise business requirements. Then we send you the o Home 

disk, all the instructions you need. NO ASSEMBLY NECESSARY 
Please send me the custom questionnaires for the follow- 4 See Ere Can RUC 


ing $249.95 Model I! Programs. 
[_] General Ledger/Cash Journal 
[]Accounts Payable/Purchase Order 
[]Payroll/Job Costing 
[ ]Accounts Receivable/Invoicing 
[_] Please send me information on the TRS-80 Model | 
programs at $99.95 each 


AND DEMONSTRATION 
PROGRAM PROVIDED 
TRS-80 PEN Includes 
Demo-Game Cassette $19.00, Kit Form _ - $14, 00 


DUPLICATE SYSTEM TAPES WITH “CLONE” 


This machine language program makes duplicate copies of ANY tape written for 
Level Il. They may be SYSTEM tapes (continuous or not) or data lists. It is not 


ee es ee ee een 


Wein mairip 80 oe Se ee ee a necessary to know the file name or where it loads in memory, and there is no chance 
of system co-residency. The file name, entry point, and every byte (in ASCII format) 
CO IO. Sew a ae ee are displayed on the video screen. Data may be modified before copy is produced. 
CLONE $18.00 
PI i eg EE ia oir ecgly tesee ig, eon te OR ae Oo 
Clos /StaTOsPOSICORS oS i a a Ee Eee "TRS80 isa registered Trade Mark of the Tandy Corporation and products 


PEER re ne ge ee eee Let eam Seger Te oe epee ef advertised are in no way connected with or guaranteed by the Tandy 
Corporation. 
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Beware the 
Japanese 


Watch for new| computers 
from Japan. We just saw an 
item produced by the 
Nippon Electric Company 
that combined in a small 
keyboard-cabinet a com- 

uter with 16K RAM, 

icrosoft BASIC, colour 
graphics, disc controller, 
cassette interface, and 
motor control for $750 US. 
For another $750, NEC sells 
a colour monitor (that’s 
monitor, not TV) which will 
handle the high resolution 
graphics and an 80 character 
display. 

Console configuration 
can be set in BASIC, and 
there are “Motor” 
commands to control 
external devices through 
the connector at the back of 
the unit. NEC is not 
planning to market this 
model abroad, however. It’s 
holding back in favour of a 
better, cheaper model to be 
introduced soon. 


Nioving Up 


B.S. Microcomp has moved 
from Burwood to the bright 
ate of 561 Bourke St., 
elbourne (4th floor), on 
the strength of their 
Commodore Microcomputer. 
They have the following 
disc based software usable on 


the Commodore CBM System. 


The WordPro 111 word- 
processor offers instant 
editing, global search and 
replace, document retention 
up to 170 pages, etc., etc. 

The COMBIS System can 
store 10 sub-records in each 
record and 650 records per 
disc. Info can be extracted 
from any combination of 
sub-records and can be 


directly used by WordPro 111. 


' Australian designed, the 
General/Creditors/Debtors 
Ledger can handle oodles of 
transactions, produces all 
the standard reports and 
allows for random enquiries. 

B.S. Microcomp also sells 
ames software from _ 
ommodore’s “Arcade” 

series. They all include 
sound effects for use with a 
loudspeaker unit. Aw, Beryl, 
it’s not the same without 
the noises! 

Tel. 614 1433, 614 1551 


IPS-100 


The Information Processing 


| System-100 uses a 10 slot 


S100 bus for standardisation 
so you can adapt it to 
other products. With an 


8085 processor board, quad 
density dual floppy discs, 
32K RAM and two indep- 
endent RS-232 I/O} ports, 
it’s only 12” wide and can 
accommodate up to four 
users On uninterrupted time 
sharing. The Micropolis 
operating system, editor, 
assembler and extended 
BASIC are included. Other 
packages are available. 

At $3,750 (tax ex.), if 
the IPS-100 is what you 
want contact Microprocessor 
ie Maskell’s 
Hill Road, Selby, Vic., 

Tel. (03) 754 5108 or 
A.H. 211 8484. 


Micro 
Conference 


The National Microcomputer 
Conference on Personal 
Computing in the Eighties 
will be held at the A.N.U. 

in Canberra. Running over 
three days, July 9th to 11th 
there will be four sessions 

a day on various topics of 
software, programming 

and hardware. 


Registration fee is $25.00. 


Information from 

MICSIG - Canberra, 

P.O. Box 446, 

Canberra City, A.C.T. 2601. 


Relieves 
Headaches 


Disc drive head cleaners for 
the TRS 80 and the Apple 
II are available from 
Computerware. In the form 
of aconvenient mini diskette, 
ney are reusable and come 
with an automating program. 
The head cleaner allows 
more reliable disc drive 
operation and will save oe 
the cost of conventiona 
head cleaning maintenance. 
A cleaning solution is 
included in the price of $20. 


Local Suppliers 


For those in the Camden/ 
Campbelltown area who 
don’t want tojourney to the 
Big Smoke for their software 
requirements, Seahorse. 
Computer Services are just 
a local phone call away. 
They are agents for 
Commodore business 
machines and home 


computers and supply the 
full range of Commodore 
software and peripherals. 
Software is also held for 
Apple, Pet, TRS 80, and 
Sorcerer; and Lifeboat 
Associate’s professional 
software can be bought 
formatted to your needs. 
They have a mail order 
service and a comprehensive 
catalogue which is available 
from Seahorse Computer 
Services, P.O. Box 47, 
Camden; Tel.(046) 366 131. 


Apple Change 


of Heart 


The heart of the Apple II 
computer has been trans- 
planted — an astonishing bit 
of surgery that has drastically 
changed its character. The 
standard Apple II com- 
puter uses the 6502 micro © 
and therefore cannot run 
any of the software available 
to users of systems with 
Z80 or 8080 micros (which 
have standard CP/M 
operating systems). This gap 
in the Apple’s abilities has 
rompted one of the two 
est-known suppliers of 
computer control software 
— Microsoft — to produce 
a card which gives the Apple 
II a Z80 processor. 

This unexpected grafting 
allows the Apple II to run 
the piece of software 
pomices by the other best 

own systems software 
company — Digital Research 
— that is, the CP/M operating 
systems. The cost of the 
new processor board and two 
diskettes (with the CP/M 
software) is $349. 

Microsoft BASIC, 
included in the package 
price;‘has all the features not 
found in Applesoft, plus 
exclusive new features added 
to take advantage of the 
Apple II’s special] capabilities.” 

And adding the Z80 
software card doesn’t stop 
the Apple being an Apple. 
“Tt allows you to use either 
the 6502 or the Z80 proc- 
essor — whichever is needed 
to run a particular program,” 
says Microsoft, “‘and 
switching between the 
two processors is as easy as 
typing in a particular 
command. All the features 
that you love about your 
APR stay intact.” 

he only caveat is that 
programs and data generated 
on the Apple in CP/M are 
not transferable to the 
normal Apple. It’s either 
one or the other. . . never 
both. 


Hard Disc 


D.D. Webster Electronics 
have introduced hard disc 
versions of the Spectrum II. 
These new free-standing 
machines are available singly 
as a hard disc 10 or 20 M/B 
unit, or incorporating an 

of the Spectrum II’s cindie 
or double floppy disc 
minicomputers. Three of 
these machines are already 
in use in Victoria. 

Prices range from $16,077 
for a 32K Spectrum II Z10 
without floppies, to $23,195 
for a 64K Spectrum II D20 
using a 20 M/B storage disc 
with a double-sided double 
density floppy disc storing 
2.52 M/B’s on-line. 

Contact D.D. Webster 
Electronics Pty. Ltd. at 
17 Malvern St, Bayswater, 
Vic. Tel. (03) 729 8444. 


Double Dutch 


ADE have a new two-headed 
bidirectional character 
printer called the Qume 
TwinTrack. So you can now 
have a word processor 
which prints text in Swahili, 
to use their example, or 


Dutch, to use ours (just 
dying to use that heading), 
while simultaneously printing 
out an English translation. 
You can print in many 
colours. You can scrap 
hand insertion of special 
characters. 

All this and more, with 
the TwinTrack which was 
designed to solve complicated 
printing problems. It uses 
two independently operating 
daisy wheel print heads. 
This allows for 192 on-line 
characters, with any com- 
bination of type fonts. 

With two different 
wheels and a total of 192 
characters, the printer is 
capable of up to 45 charact- 
ers per second. Two 
identical wheels can generate 
up to 75 characters per 
second, with a usable print 
width of up to 26.3 inches. 

Ten- or twelve-pitch or 
proportional spacing daisy 
wheels can be used. For 
the standard width of 15.3 
inches, 183 columns of 12 
characters per inch are 
possible. Using maximum 
width, 264 columns of ten 
characters per inch, or 315 
columns at twelve characters 
per inch are possible. 


SOF TWARE 


AUSTRALIA'S MOST 
COMPREHENSIVE 
CATALOGUE 


SEAHORSE 


supplies more than 
470 programmes from: 

MUSE / PROGRAMMA / MICROSOFT 
MICROSENSE / LIFEBOAT 
GEMSOFT 
for the 
APPLE 
CBM PET 
TRS-80 
SORCERER 
$1.00 inc. p & p refundable with order 


SEAHORSE COMPUTER SERVICES 
P.O. Box 47, Camden, N.S.W. 2570 
Old S. Rd. Razorback, N.S.W. 
Telephone: (046) 366 131 


4 APC 


So, if you have an 
African connection, or need 
multicolour printing or text 
involving algebraic symbols, 
subscripts, superscripts, etc., 
contact Anderson Digital 
ae ment Pty. Ltd., 

P.O. Box 322, Mt. Waverley, 
Tel. (03) 543 2077; or 

Box 341, Pennant Hills, 
N.S.W. Tel. (02) 848 8533. 


More from 
ADE 


ADE also have a new family 
of plotting systems — the 
CPs 14/15. They offer four 
pen plotting under program 
control and will produce 
four colour drawings on 
paper, mylar or vellum. 

We are told that the 
digital plotters are designed 
to provide “draftsman like”’ 
quality, in a variety of 
applications. 

The CPS 14 and 15 
systems have up to 172 
firmware generated symbols, 
circular buffer memory, 
and protocol for detection 
and correction of errors. 

A thumb wheel selector 
gives scaling up to nine times 
the original size. 

Contact as above. 


yet again 
You've got to hand it to 
them — they won’t be going 
broke from lack of publicity. 
ADE have also recently 
announced the introduction 
of 80 and 300 megabyte 
disc subsystems to suit any 
DEC PDP-11 system as well 
as Data General, Nova and 
Eclipse minicomputers. 
hese subsystems will 
enable any of the above 
computers to access up to 
1.2 billion bytes of on-line 
storage in a single config- 
uration. With the use of 
CARDS (Continuous access 
reliable disc storage) systems, 
ADE can extend storage 
capabilities to a maximum 


of “2.4 billion bytes of on-line 


storage”. And up to four 
CPU’s can be interfaced to 

a common drive through the 
use of CARDS. 

The 80 M/B subsystem 
will sell for about $25,000 
and the 300M/B for about 

You know where they 
can be contacted. 


New at GFS 


GFS Electronic Imports, 
agents for South West 


| Technical Products Cor- 


poration (SWTPC), have 


announced the release of 
two products to eet 
their range of SWTPC/ 
Motorola 6809 based micro- 
computer systems. 

Firstly, a new Central 
Processor, the Model S/09, 
features a Motorola 6809 
microprocessor, and is 
supplied with 128K of 
dynamic RAM which is 
easily expanded to 768 K. 

It will support up to 
eight I/O ports, programm- 
able for baud rates up to 
38,400. Both multiuser 
and multitasking/multiuser 
operating systems are 
available, with Pascal, 
BASIC, extended business 
BASIC, assembler, text- 
editor, text processor, sort- 
merge, plus a range of 
business software. 

The price of the S/09 
is $62,000 (incl. sales tax). 

The other newie from 
SWTPC is the Model CDS-1 
“Winchester” technolo 
hard disc drive unit, with a 
capacity of 16 M/B, for 
$8,200. Sounds like a 
weapon! 

Both available from GFS 
Electronic Imports, 

15 McKeon Rd., Mitcham, 
Vic., Tel. (03) 873 3939. 


Lisp for the 
Big Question 


The words “Artificial 
Intelligence” are equated in 
too many minds with some 
vague picture of a lunatic 
scientist trying to create a 
computer that lives. 

A man called Aaron 
Sloman describes the actual 
benefits of artificial intelli- 

ence much more accurately. 

n a grotesque summary oO 
his superb book “The 
Computer Revolution in 
Philosophy” it could be said 
that Sloman has found a 
real use for both Bury 
and artificial intelligence by 
observing how well they 
solve the limitations of each. 
In particular, he accuses 
philosophy of building 
theories without the barest 
models of Mind to test them 
on. By testing concepts 
of Mind in artificial intelli- 
gence one can quickly find 
out if it is possible to create 
a set of rules that express 
the Fie de - and from that, 
whether the rules (simulated 
on a computer) actually 
produce “behaviour”’ that 
parallels observable intell- 
igent behaviour. 

All this is by way of 
saying that the lauguage 
Lisp, used by artificial 
intelligence researchers, is 
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eventually going to be the 
sort of tool that enables 
someone to define “sense 
of humour” accurately, 
and freeing philosophers 
from protesting that, sure, 
they’re concerned with 
the problems of real life — 
like, what do we mean by 
“real” and what is an 
empirical definition of 
‘life’? (with acknow- 
ledgements to The Hitch 
Hiker’s Guide to the Galaxy) 
And Lisp is now available 
from Microsoft, together 
with another product 
written by the Soft 
Warehouse, for micros. 
The package is called 
muLis an and 
costs $7 0, to run under 
CP/M. The other package 
is a maths package, muMath 
at $250. 

The muLisp package 
“offers all of Lisp’s unique 
programming features,” 
says Microsoft: “including 
83 Lisp functions, flexible 
program control structures, 
and ‘infinite precision 
integer arithmetic in any 
desired radix from base 2 
(binary) to base 36.” 
Dealers, contact Microsoft 
on (206) 455 8080 in the 
USA. 

In Australia, LISP is 
available for the Cromemco 
system. At $295 for either 
a5” or 8” diskette, docum- 
entation includes a detailed 
manual and a copy of 
“Artificial Intelligence 
Programming”. From 
Informative Systems, 

3 Bank St. Sth. Melbourne 
Tel. (03) 690 2284. 


INFORMATIVE SYSTEMS Pty Ltd 


Specialists in professional microcomputers and high performance computer support products. 


3 Bank Street, South Melbourne, Vic 3205 


Beatitude 


The heart warms to a = 
company which can provide 
clear pictures and = ite 
correspondence. MicroPro 
Design have advised us of a 
new product — the California 
DC range of switchin 
regulated power supplies. 
The LR series of open 
frame supplies provide size 
and weight Savings Over 
linear, series regulated 
supplies, we are told. They 
provide power for floppies, 
tape drives, memories and 
microprocessors, and include 
versions with up to four 
independent output voltages. 
It their machines are as 
efficient as their ph=‘u- 
graphers and reps, they’re . 
onto a winner. Enquiries to 
MicroPro Design, 
P.O. Box 153, Nth. Sydney, 
Tel. (02) 438 1220. 


Hop on the 
TRS-80 bus 


When Tandy launched its 
ackaged microsystem, every- 
ody pointed out that it 

would never have the benefit 

of being a standard add-on 
bus machine, like Altair, and 
that the job of ex nding it 
would, therefore, be costly 

Ingenuity will always find a 

way to prove these predic- 

tions wrong. In New Jersey, 

a company called K.:rtmann- 

Lang is releasing add-on-hard- 

ware for the TRS-80, by the 

devious method of using the 
official connector socket at 
the back of the computer, 
and expanding it to what 


a 56 pin 8-bit bus supported 
by “products from numerous 
manufacturers”. 

Hartmann-Lang now has 
available the following 
poses for the TRS 80/STD 

us: the bus interface, a 6 
slot STD bus mother board, 
a 16 channel ten and twelve 
bit analog to digital con- 
verter board, a four channel 
12-bit digital to analog 
board, an eight channel reed 
relay output board, an eight 
channel triac board — useful 
for varying the speed of 
electric motors or the inten- 
sity of lights — plus a range 
of memory boards, input out- 

ut ports, and printer inter- 
aces. 

Software available includes 
an intriguing emulator of the 
6502 hich. if it works, 
will allow the TRS-80 to run 
any program written for the 
Kim or PET family in 
machine code. There is also 
a collection of operating 
utilities, to make loading 
information from cassette 
easier, and to help with 
machine code programming. 


dy 
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For the freaky, there is a 
monitor program — written in 
BASIC — which “makes an 
interesting case study in - 
interaction between machine 
code and BASIC’’, comments 
the company. At least it isn’t 
claimed to be any kind of 
useful breakthrough. 


From the 


Horses Mouth 


Mr Gower Smith of 
Computerland, whose family 
have a Romny Stud in NZ, 
informs us that the set of 
pions called the Stud 

ook, can be of great 
benefit to livestock 
breeders. Using an Apple II 
micro, the programs have 
been developed to handle 
selection and breeding 
requirements in Australian 
conditions. 

That last one was 
tempting but Mr Smith is 
too nice to be cruel to. So 
we ll leave EWE to flex your 
RAMS, read past the BULL 


and HEIFER|nice month! 


In the microcomputer field, the Cromemco System Three and Z-2H Winchester Hard Disc 
Systems stand alone in the range of features and capabilities offered. These systems are based 
on the Z-80A chip, and have from 1-4 mbytes of diskette storage, and from 10-80 mbytes of 
hard disc storage, combined with the widest range of software available in the industry, including 
Multi-user, Multi-tasking operation. 

The computers have a large $100 motherboard and the operating system is a Superset of 
CP/M, thus allowing a wide range of non-cromemco hardware and software to be used. This 
also provides ‘‘obsolescence insurance’’. Some of these features include high resolution colour 
graphics, Eprom programmers, remote terminal emulation, and card reader interfaces. 

Cromemco Basic, available in 3K, 16K, and 32K structured/KSAM versions, is fast, efficient, 
and ideal for teaching purposes because of it’s dynamic error trapping On entry, and easy file 
handling. Cromemco Fortran IV and Cobol are equal in power to those found on mainframes, 
and of course, Pascal, C, and other high level languages are also available. 

Informative Systems, Cromemco’s authorised centre for sales and service, have installed 
many systems throughout Australia, backed by Cromemco trained technical staff offering 


/ Maintenance, support and user training. 


Sydney (02) 680 2161 


Telephone (03) 690 2284 Telex 30458 INSYST 


For some time now anyone with a bulky wallet and a strong friend 


CROMEMCO 


could walk into one of several shops and emerge with the top of the 
market microcomputer, Cromemco’s System Three. As a ‘black-box’ 
machine running purchased software the System Three is less 
appropriate than some of its more compact, less expensive alter- 
natives. But, for someone looking for a microcomputer, the System 
Three is a thoroughly professional machine. There is nothing 
gimmicky about the hardware or the software. The hardware is 
solid and based on the S100 bus; the operating system is more 
extensive than CP/M but will run most CP/M system software. 
The supporting software is reliable, comprehensive and well 


Hardware 


The System Three is contained in 
one large, heavy box (all-up weight 
around 35 kg). To open it up one 
simply presses a button and _ the 
front swings open. Immediately vis- 
ible are the card cage, the two drives 
and the power supply; with the ae 
slid forward, very card is completely 
accessible. The hardware layout has 
been carefully designed so that every- 
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documented. 


thing can be reached with complete 
ease. The machine that I was lent ran 
cool even over extended periods of 
time. I’m sure that this was aided 
by the emtptiness of the box and 
the size of the power supply. 


The CPU is Cromemco’s 4MHz, 
S100 compatible, Z-80A CPU — called 
ZPU (Z rhymes with C in American). 
It has power-on jump circuitry so 
that it can force an automatic jump 
to 1 of 16 memory locations. The 
clock can be set to 2 or 4 MHz (set at 
4 on the System Three). There is a 


Wait State generator allowing use with 
slow memory. 


The memory consists of four Crom- 
emco 16KZ dynamic RAM cards. 
They can operate at 2 or 4MHz. A 
Bank Select feature allows memory 
to be organised into up to 8 banks 
of 64K, each selected by software. 
Cromemco also produce a memory 
card called the 64KZ, which can be 
used with their Extended Bank Select 
feature and external motherboard to 
expand the memory to 4 megabytes. 


The disc controller card is Crom- 
emco’s Model 4FDC which interfaces 
with both mini and full size pee Py 
discs. The card contains a serial i 
RS232 port with software-selectable 
baud rates (from 110 to 76,800). 
After powering-up one hits the return 
key a few times so that the System 
Three can set the baud rate. Also on the 
card is a 1K, 2708 PROM with system 
software and _ several switches for 
both enabling and disabling initial- 
isation of discs and for booting specific 
software. 


The disc drives are Persci’s model 
299B. The discs are in IBM 3740 
Diskette Format. Data Pe of 0.5 
megabyte per disc, located on 77 tracks 
Reading and writing transfer rate is 
250 kilobits per second. 

For the Benchtest, a Centronics 
779 printer came connected to a Crom- 
emco -PRI parallel printer interface 
board. This board as two parallel 
interfaces for simultaneous operation of 
a dot matrix printer and daisywheel 
printer. 


Overall, I found the hardware well 
designed and substantial. For the two 
weeks that I had the system at no time 
did it show any sign of distress. 


System Software 


There are two operat systems 
supplied with the System Three. On 
sy uae eek first of all the Resident 
isk Operating System (RDOS) is 
booted in. Located in 1K of ROM 
on the disc controller card, RDOS 
contains a rather primitive monitor 
with fourteen commands (for reading, 
writing and displaying data on discs and 
in memory). More importantly, RDOS 
contains a bootstrap loader for the 
Cromemco Disk Operating System 
ee if you don’t want to use 
DOS, there is a switch on the disc 
controller board that can be ia ee 
so that CDOS will automatically boot 
in on powering-up. Additionally, if 
a System Three is going to be used by 
an untrained operator, there is also, 
when powering-up, a facility to enter 
directly into an application program. 

CDOS will appear familiar to CP/M 
users because although it’s written in 
Z80 machine code (instead of CP/M’s 
8080 code) by Cromemco, they use the 
CP/M data structures and user inter- 
face under licence from Digital Res- 
earch. Cromemco claim that most 
CP/M programs will run under CDOS 
but that programs developed under 
CDOS probably won’t run under 
CP/M. I assume they are referring 
to system programs such as compilers 
and interpreters and not BASIC pro- 
grams, since Microsoft Extended BASIC 
and Cromemco Extended BASIC have 
incompatibilities. 


Oe 


Under CDOS, both main memory 
and disc memory are divided into two 
parts ... one for the operating system, 
the other for the user. CDOS takes 
uP the lowest 256 words, the highest 8K 
O 


RAM and the first two tracks of a I 


ibe disc. When booting in CDOS 
e system locks on drive A. This is 
in fact the default drive and the system 
prompts with ‘A’. A user can move to 
another drive by specifying it (B, C, 
or D) and CDOS then prompts with the 
appropriate letter. Any command 
typed in response to the prompt is 
interpreted by a system program called 
CONsole and PROCessor. If it is 
an internal function (part of CDOS), 
a utility or user COMmand file name, 
then the command is executed. Other- 
wise the message, “program not found”’ 
is displayed, followed by CDOS prompt. 


In any computer system there 
are tasks that users need to execute 
regularly in order to keep the system 
running smoothly. As is common 
practice, Cromemco provides a set of 
utility programs for some of these tasks. 


Unlike the intrinsic commands, run- 
ning a utility program takes up user 
space, as do user written COMmand 
files. The language translators (BASIC, 
COBOL, FORTRAN and Macro Assem- 
bler) are also supplied as COMmand 
disc files and therefore accessed by 
typing the appropriate name: 


The feature that Cromemco appear 
most proud of (and which they believe 
makes CDOS superior to CP/M) is the 
power of their system calls. These are 
instructions which are passed directly 
from program to Cpos without any 
modification from the language trans- 
lator. They are designed to handle I/O 
to and from specific peripherals, load 
subroutines from a library (such as 
multiplication and division), etc. CDOS 
has 151 of these making it possible to 
transfer programs to a wide variety 
of CDog configurations; unfortun- 
ately this makes it more difficult 
to run the same programs under other 
operating systems. 


The major design fault (which it 
shares with CP/M) concerns the alloca- 
tion and deallocation of file space. 
When a file is ERAsed, no file rearrange- 
ment occurs and therefore space on a 
disc becomes increasingly fragmented. 
If records are not completely filled, 
the “holes” in the records will not be 
empty but rather contain whatever 
was previously on the disc. Also disc 
space is allocated in 1K “clusters” 
so that a 13 byte datafile takes up 1K. 


Overall, I found CDOS easy to 
use, if a little intolerant (ERASE 
AFILE produces the message “pro- 

am not found” since one must enter 
ERA AFILE). However, for people 
familiar with CP/M or DEC software, 
it should cause few difficulties. In 


fact, I inserted a CP/M disc in Drive B, 
read its directory, transferred a COM- 
mand file onto (CDOS) disc A and 
then executed this program, without 


experiencing any problems. Even so, 
‘m not convinced that Cromemco 
made the right decision when they 
decided to Bepass the industry stan- 
dard CP/M. It means that users are 
far more dependant on Cromemco 
for software, although, from what 
I’ve seen, their standard is high. On 
the other hand, by writing their own 
operating system, Cromemco have fully 
utilized e processor, while 
retaining CP/M compatibility. 


Text Editor 


I found the text editor comprehensive, 
although awkward to handle. It can be 
used to create, edit and save text on 
program files. The list of single letter 
commands that are available is im- 
pressive — in fact, only the letter M 
is not a command. There are line, 
character and word orientated com- 
mands, as well as several commands 
for moving text between buffer and 
disc. There is a macro facility for 
sequences of commands that are needed 
repeatedly as well as conditional. com- 
mands that allow the user to execute 
part or all of a macro. 


Although quite powerful, I have 
certainly come across more conven- 
ient editors. When used as a character 
or word orientated editor the position 
of the cursor is crucial . . . and yet 
there is no method for seeing it. 


Cromemco have a screen _ orien- 
tated editor that bears a remarkable 
resemblance to the American UCSD 
screen editor, used in one of their 
expensive VDU’s. 


BASIC 


The most significant fact about Crom- 
emco’s 16K Extended BASIC is that 
it was not written by Microsoft. As 


system programmers can only get so 
many facilities into a given size 
memory, this means that some of 


Cromemco’s unique features preclude 
their BASIC from having all of Micro- 
soft’s capabilities The two most 
outstanding features missing are var- 
iable names longer than two charac- 
ters and IF... THEN ©. .. ELSE... These 
omissions alone should ensure that 
Microsoft BASIC programs will need 
line by line revision before they can 
be executed on a System Three. 
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Having pointed out that this isn’t 
the best BASIC for running “off the 
shelf’ software, it’s still worth looking 
at the aoe e itself. The lack of IF. . 
THEN. . ELSE. . and decent size var- 
iable names make it quite difficult 
to produce readable programs. On a 
more positive note, one of the first 
uns I noticed was the speed with 
which BASIC programs executed and 
also the accuracy of data. 


The speed is partially due to the 
nature of the interpreter itself. Rather 
than using a pure interpreter as do 
most microcomputers, after entry, each 
line is translated into machine code 
If a line cannot be translated, an error 
message with a § under the offending 
characters ‘appears. The advantages 
of separating translation from execution 
are several. Firstly, it is faster to exe- 
cute a program in machine code than in 
BASIC. Secondly, a program is more 
likely to run because at least there are 
no syntax errors. And thirdly, it 
takes up less space and hence can be 
transferred to and from the disc more 
rapidly. Since a machine code program 
cannot be edited with the text editor 
and users may want to edit long BASIC 
programs, Cromemco offers two ways 
of filing BASIC programs on disc — 
SAVE-LOAD for machine code and 
LIST-ENTER for ASCII BASIC listings. 
When listing a program the system 
produces a reconstruction from machine 
code which is unlikely to be spaced as 
originally entered (FOR-NEXT loops 
are indented one space; everything 
else is left-justified). 


The other unusual feature, which 
accounts for the accuracy as_ well 
as influencing speed, is the method 
of representing numbers. The user 
can specify if numbers are to be held 
as 14 digit (8 byte) or 6 digit (4 Dyie) 
reals or as integers (2 bytes). € 
running Benchmark 7 — using integers — 
it took 73% of the time needed for 
short reals, showing the kind of savings 
that are achievable if reals are not 
essential in processing. Reals are 
represented in BCD _ format, fully 
utilizing the Z80’s BCD instructions. 
This allows the System Three to exe 
cute BASIC programs faster than 
less accurate machines. Unfortun- 
ately mathematical functions are slow 
in BCD, although they are usually 
accurate. (BM.8, which tests them, 
shows it also doesn’t help to tum 
numbers into short form). 


The list of reserved words in the 
BASIC Box indicates most of the 
strengths and weaknesses of Crom- 
emco’s Extended BASIC. In particular 

I noted the following features: 


1. TRACE and NTRACE 
de-bu ne. 

2. RENUMBER leaves gaps in the 
numbering if lines have been deleted. 


are for 


8 APC 


instructions are 


3. The initialization 
used to get numbers and angles 
into their most suitable form. 

4. CON continues execution after stop. 

5. For files (both sequential and ran- 
dom) PRINT and INPUT are ASCII, 
PUT and GET are machine code 


orm. 

6. BINs perform logical operations 
on 16 bit operands. » 

7. FRA gives the fractional part of a 
number. 

8. NO ECHO can be used to prevent 
user’s input from appearing on the 
screen Ee WerGs) 

9. ESC is used to break into an exe- 
cuting program and return to the 
BASIC system. NO ESC allows the 
programmer to disable ESC. 

10ON ERROR allows a programmer 
to trap non fatal errors. 


I think from the list of reserved 
words it can be seen that Cromemco 
16K Extended BASIC (which actually 
takes up 19K) is quite powerful. I 
preferred the Multi User BASIC which 
was 16K Extended BASIC without 
machine level instructions, plus 31 
character variable names, IF . . THEN 
DO. . ELSE. . END. 0 and COMMON. 
Multi user BASIC also now has a Multi 
tasking facility. 


Benchmark 


I timed the Benchmark programs in 
the modes that would be«appropriate 
for execution. . . and then applied 
some new tests to evaluate the disc 
file accessing facilities. All the files 
in these tests are 100 record files with 
256 character records. These sizes have 
been chosen, not only because they 
are realistic, but also because they are 
large enough to allow for the significant 
improvements in access times which 
new technology promises. 


Disc Tests 


Create “Datafile’’, 

close it. 

Using a FOR-NEXT loop, put 
256 ‘A’s into A$. create 
“datafile”, open it, using a 
FOR-NEXT loop write A$ 
to records & to 99, close the 
file. 

As test 2 but writing the 
records to the file starting 
with the last record, that is 
the FOR-NEXT loop’s step 


is -1. 
a FOR- 


Test 1 
Test 2 


open it, 


Test 3 


Open “Datafile” usin 
NEXT loop, read each record 


Test 4 


out of the file, close the file. 
As test 4 but reading from the 
file starting with the last 
record. 


Test 3 and Test 5 are desi 
evaluate the ‘“‘directness”’ of 
random access facilities. 


Test 5 


ed to 
e file’s 


Disc Test 1 2.9 Disc Test 4 25 
Disc Test 2 115.4 Disc Test 5 40.4 
Disc Test3 115.4 


Other 
Languages 


Besides the Extended and Structured 
BASIC interpreters, Cromemco supply 
a Z80 Macro Assembler and FORTRAN, 
COBOL. PASCAL, ALGOL, RGP2, 
LISP, RATFOR and PILOT com- 
pilers. All come with comprehensive 
de-bugging packages. A program can 
be saved in machine code form as a 
COMmand file and executed just by 
typing its name. 


The compilers and assembler Eve 
the System Three great flexibility. 
I would be surprised, though, if they 
get used anything like as often as 
the Le ast, easy-to-handle 
BASIC, 


Business 
Potential 


How one judges a business system 
depends on the use that’s intended 
for it. If what is wanted is a black 
box that will run ready made packages, 


there are certainly cheaper, more 
compact microcomputers on _ the 
market. . . eg.Tandy’s TRS80 or the 
Apple II. so, although Cromemco 


say that software produced under the 
CP/M operating system will run on 
the System ree, their BASIC is 
sufficiently different from the indust 
standard Microsoft Extended BASI 


that packs es produced to run in this 
BASIC under CP/M will need custom- 
izing. 


If on the other hand, the intention 
is to use a microcomputer for a variety 
of tasks oe include a substantial 
amount of development work) it is 
difficult to fault the System Three. The 


documentation is comprehensive and 
clearly written; most of the available 
software is accessible to both the 
novice who is prepared to devote some 
time as well as to the more experienced 
user. There is a wide selection of soft- 
ware enabling development of good 
business programs. hese include a 
COBOL compiler, a FORTRAN com- 
piler with file handling facilities, a 
powerful, fast Extended BASIC interp- 
reter, a Structured BASIC interpreter, 
a macro assembler and a comprehensive 
text editor. 


I was also given documentation for 
the following packages designed to be 
used in a business environment: Data 
Base Management System, Text For- 
matter, Multi-User BASIC, and several 
general business packages. The DBMS 
is an indexed sequential filing system 
that can be utilized without any pro- 
gramming knowledge. By following 
the manual, users can create a file, 
examine and alter the layout of its 
fields, enter new data, sort on multiple 
keys, SHSDIBY insert, delete.and query 
records and print out mailing labels. 
In addition, the files created by the 
DBMS can be accessed in BASIC. 


The Text Formatter appears to be a 
comprehensive Word Processing System. 
Unfortunately it is not memory mapped 
so it is not as easy to use as those 
systems now on the market with screen 
editing. Although available, I was 
unable to evaluate the Multi-User 
BASIC; the system I had was not 
configured for it. From the docu- 
mentation, it seems that if several 
users need to access the discs simult- 
aneously, due to the protection system 
(that is designed to prevent users from 
corrupting each others er they would 
find it painfully slow. If Multi User 
BASIC is going to be used for develop- 
ment work, rather than file accessing, 
it probably has a reasonable response 
time and it definitely has a very power- 
ful instruction set. 


Moving on to the hardware, the 
large box with places for four disc 
drives and twenty one S100 boards 
(the industry hardware standard) means 
that the System Three can be easily 
expanded without the added expense 
of boxes, cables and power supplies. 
The discs are double sided single den- 
sity and therefore only two drives 
are needed to put 1 Megabyte on line. 
If 2M are not sufficient, Cromemco 
provide the HDD — an add-on system 
which offers one or two 11 Megabyte 
Winchester Discs. If the thought of a 
System Three sitting on top of a desk 
is unappealing, a custom desk will 
soon be available to support it; more 
reasonably, a standard 19” rack mount- 
ing will do the job. 


In conclusion, for a business that 
wants a microcomputer in order 
to develop and run programs, the 
Cromemco System Three has much to 
recommend it. Firstly, it is available, 
by which I mean you can actually go 
into a shop and walk out with the 
hardware and _ software described; 
secondly it is an extremely expandable 
system and the add-ons are also easily 
available; thirdly Cromemco is a 
financially secure company and there- 
fore there is no reason why they 
shouldn’t continue to produce quality 
hardware and software. 


Educational 


How one judges a microcomputer 
as an educational machine depends on 
the functions it has to perform. The 
design of the System Three with its 
substantial box to cope with expansion, 
could be either desirable or undesirable. 
If you want something to move easily 
from room to room, then go for a 
smaller system. If, on the other hand 
youll want to be plugging in all sorts 
of unusual boards, then the System 
Three is ideal; it has fourteen free 
S100 slots. 


The software also has its pros and 
cons. On one hand there are the nine 
language translators available, so one 
isn’t locked into BASIC. And, for 
teaching programming, their new 
Structured BASIC is an improvement 
over Extended BASIC. On the other 
hand, the System Three is not software 
compatible with the Apple II 
which seems to be a popular educational 
machine. To compensate for this 
deficiency, fourteen diskettes are avail- 
able each concentrating on aspects 
of secondary education. 


I’m not convinced that any 8 bit 
micro with floppy discs can adequately 
stand simultaneous use. But a System 
Three with Winchester Discs should 
make a multi user system that can be 
compared with mini multi-user BASIC 
systems. 


The System Three seems to be 
extremely robust in both hardware 
and software. Although too large 
to be carted around it’s a reasonable 
choice for an institution that wants 
a mini but can’t afford it. Several 
Cromemcos would probably be cheaper, 
more flexible and reliable than a single, 
larger machine. 


- about 


Home and 
Games 


This section of the Benchtest becomes 
more or less redundant. Even though 
Cromemco offer joysticks, they have 
not made any serious attempt to prod- 
uce a hobby machine. 


Documentation 


Along with the System Three, printer 
and VDU, I was supplied with seven- 
teen manuals. That included nine 
language manuals (Extended BASIC, 
Structured BASIC, PASCAL, ALGOL, 
PILOT, COBOL, FORTRAN, Trace 
Simulator for the Macro Assembler and 
Multi User BASIC), two text orien- 
tated manuals for editing and word 
processing, two operating system man- 
uals (for the CPU board, the memory 
boards, printer interfaces, the disc 
controller and two on the disc drives) 
a graphics manual and a Data Base 
Management Systems manual. No one 
could accuse Cromemco of skimping 
on documentation! 


Unless perhaps the sheer volume 
of paper proves rather too daunting, 
a novice could learn a fair amount 
computers and programming 
from reading them. In _ particular, 
the manuals aimed at the new user 
(16K Extended BASIC, DBMS and 
Text Formatter) explain at some length 
the underlying theory ot the soft- 
ware in question. The DBMS manual 
explains how files are organised, while 
the BASIC manual has an introductory 
chapter on languages, the types of 
problems that can be solved by pro- 
grams and how the System Three 
responds to a BASIC program. This 
manual also includes a aeueany of 
general computer terms. 


For the more experienced user, 
these details can be easily skipped 
over because the manuals have com- 
prehensive tables of contents, indices, 
appendices and user guides. The intro- 
ductions also indicate for whom each 
chapter is aimed. In the programmin 
and text manuals, each instruction an 
data type is clearly defined and pro- 
vided with examples. There are also 
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ample programs and text that describes 
a variety of features in a realistic con- 
text. 


You can gather that I was most im- 
pressed with the overall standard of 


documentation. It’s clearly written, 


well organised and informative. 


E xpandability 


The System Three is designed with 
expansion in mind. The computer 
I was lent had 14 empty S100 slots 
in its back-plane. The disc-controller 
can be used with up to 4 drives (5% 
or 8 inch) and there is both the loca- 
tion and power available for the addit- 
ional two drives. Regretfully, the discs 
must be single-sided, UE ey 
In addition, two 11M-Byte Winchester 
discs, with their controller, can be hung 
on a System Three. There are 10 places 
for gs sockets (VDU’s, printers 
etc.). 


Conclusion 


The impression that the System Three 

ives is that it is an extremely pro- 
essional machine. The hardware, 
software and documentation have all 
been systematically produced and 
Cromemco appear to be continuing 
their development work. 


The machine is too expensive for 
the odd small business application ... 
certainly for someone who does not 
know how to program and who is not 
planning on hiring a programmer. It 
does not even come with a set of 
games programs. But for the buyer 
who two years ago, would have bought 
a small mini, this machine offers a 
financially attractive micro alternative. 
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Technical 
Data 


Cru: 
Memory: 
Keyboard: 
Screen: 
Cassette: 


Disc Drive: 


Bus: 
Ports: 
System Software: 


Languages: 


CS3 
CS3-002 
HDD-11 
HDD-22 
JS-1 
FOB-L 


e 
oH 
aie 
4. 
> 
6. 
ts 
8. 


FDA-L 
FDF-L 
FDC-L 
FDM-L 
DEM-L 
WPS-L 
RATFOR 


Z80A, 4 MHz 

3K —512K 
Dynamic RAM 
Lear Seigler Adm3 
N/A 


Up to 4 drives, 2 heads per drive, 


8’’ discs, single density 
S100 


1 serial, 1 parallel, expandable to 10 


CDOS 


Extended BASIC, Structured BASIC, 
FORTRAN, COBOL, Z80, Macro 
Assembler Multi User BASIC, LISP, 


RATFOR, RGP2 and PILOT. 


64K Memory two disc drives 
Dual drive expansion (8’’) 
Hard disc subsystem 

Dual hard disc subsystem 
Joystick Console 

Extended BASIC 

Structured BASIC 

Z80 Macro Assembler 
FORTRAN IV 

COBOL 

Multi User BASIC 

Data Base Management System 
Text Formatting System 
(incl. FORTRAN IV) 


$6990 
$2495 
$6545 
$11500 
$95 
$95 
2295 
$95 
$95 
$95 | 
$800 
$95 
$95 
$195 


Literary detection is not 
a new science. Almost 
from the moment that 
Shakespeare was laid to 
rest, scholars have argued 
about the authenticity of 
various passages. In 1850 
Spedding postulated that 
Shakespeare’s disputed 
play, Henry VIII, was 
actually the result of a 
collaboration with Flet- 
cher. This year Sped- 
ding’s thesis was largely 
vindicated by Thomas 
Merriam — and a compu- 
ter. 

It was the Cold War, 
with its ceaseless propa- 
ganda battles, that gener- 
ated the interest of the 
Intelligence community 
in computerised linguist- 
ics. Forgeries and plants 
abounded. They needed 
to know what’ was 
authentic — and what 
was not. 

A celebrated = case 
concerned the _ auto- 


SHAKESPEARE, 


BASIC ANDTHE CIA 


Fingerprinting sentence structure 


A few miles out of Washington, approaching 
Langley, Virginia, there is a sign over the highway. 
It reads ‘C.I.A. Turn Right’. Shortly after 
making that turn a security barrier is encountered, 
and behind it a chain link fence. Identity 
documents are painstakingly checked against a list 
held by the guard, and your physical details 
verified with a computer housed in a large complex 
of buildings within the compound. 

This is the first of a series of increasingly stringent 
checks that one meets on penetrating the 
heart of America’s Intelligence machinery. And 
there, some six stories below ground, is a 
computer that plays with words. Exactly what this 
computer does, and indeed its very specification, 
remains a closely guarded secret. For at least part of 
the time, however, it is engaged in some 
fascinating literary detective work. 

by Julian Allason. 


Illustrations by Russell Mills 


biography of Kim Philby, 
the Soviet double agent 
who had reached the 
top --ol- the —-Brivish 
Secret Intelligence Ser- 
vice. After his defection, 
a book entitled ‘My 
Silent War’ appeared, 
complete with foreword 
by Graham Greene. Phil- 
by claimed it was entirely 
his own work. SIS, know- 
ing that it was a final 
attempt to smear them 
and damage  Anglo- 
American relations, sent 
a copy to Langley. There, 
CIA specialists ran 
comparisons of ‘My 
Silent War’ with articles 
that Philby had written 
whilst operating as a 
Foreign Correspondent 
for the Observer. The 
tests showed that whole 
chapters had been 
written by others. The 
book is now regarded as 
highly suspect. 

A similar thing hap- 


APC 11 


12 APC 


pened when the memoirs 
of the West’s top Krem- 
lin agent appeared. Using 
similar methods, Soviet 
specialists swiftly ‘‘prov- 
ed” the ‘‘Penkovsky 
Papers” a forgery. Pen- 
kovsky was shot and his 
book remaindered. 

All methods of literary 
detection involve recogni- 
tion techniques. The 
detective uses the compu- 
ter to help establish an 
author’s sub-conscious 
habits of speech or writ- 
ing. Most Shakespearian 
scholars are capable of 
assembling a _ passable 
pastiche of the Bard’s 
prose. To overcome 
vulnerability in this area, 
only very common 
‘filler’? words such as 
“and’.. or. “It. 1s are 
tested. This is because 
use of these words 
is a matter of subcon- 
scious habit. Further- 
more, they occur 
throughout written out- 
put whatever the mood 
or occasion. Position in 
the sentence is also held 
to be important. 

Surprisingly, our syn- 
tactic habits are so 
ingrained that they show 
through even when an 
attempt is made to mimic 
the literary style of 
another. Usage of cer- 
tain ‘‘filler’’? words re- 
mains fairly constant 
throughout a_ writer’s 
work. 

At the simplest level 
a literary detection pro- 
gram involves a series of 
string searches on text 
samples of established 
authorship. The _ inci- 
dence of certain strings, 
for example “such a”, 
are noted. A profile of 
the author’s literary style 
is then constructed. Simi- 
lar tests are carried out 
on suspect text, and 
finally both profiles are 
compared. It should then 
be readily apparent 
whether or not all the 
samples were written by 
the same person. 

Although fairly long 
samples of text are 
required for a definitive 
evaluation, it is possible 
to obtain reasonably 
accurate results from a 
short BASIC program. 
The routine I am working 


on for Petsoft uses less 
than 8K. The following 
simplified example illu- 
strates a string search for 
the word ‘“‘and”’. 


| L—Lonxpon. 4 Gan 
Enter Garviner, Z 


110 READ T$ 
120 FOR C=1 TO LEN(TS) 


140 NEXT C 
150 PRINT “ ‘AND’APPEARED“S” TIMES” 


Note that five spaces are allowed 
for the string “AND’’ to avoid 
acceptance of ‘“HANDSOMBE”’’, 
‘““ANDREW”’ etc. An _ additional 
statement would be required to 
accept ‘‘AND”’ as the first word in 
a string. 

In practice an expanded 
algorithm tests a much _ longer 
sample of text for the incidence 
and position of a number of such 
‘‘filler’’ words and phrases. 

At about the same time as the 
C.I.A. was trying to catch up on 
computerised literary detection 
they faced another problem. They 
needed English translations of all 
the scientific and technical informa- 
tion being published abroad. Their 
linguists could not keep up. Com- 
puters, it was argued, could provide 
the answer. 

Early efforts at machine transla- 
tion met with little success. The 
problem was the inadequacy of 
available syntactical analysis. Lin- 
guistics, the scientific study of 
language, was still in its infancy. 

But in 1957, Professor Chomsky 
of the Massachussetts Institute of 
Technology, published a _ book 
called ‘Syntactic Structures’. In it, 
he argued the existence of underly- 
ing or Deep Structures beneath the 
surface structure of the sentence. 
These defined and inter-related all 
the factors determining structural 


interpretation. 
It is fair to say that not all 
linguisticians accept Chomsky’s 


100 DATA“HANDSOME ANDREW AND HIS WIFE” 


130 IF MID$(T$,C,5)=“" AND ” THEN S=S+1 


160 PRINT“IN A STRING OF” LEN(T$)“CHARACTERS” 
170 PRINT“ITS INCIDENCE WAS” S/(LEN[T$] )*100 “%” 


: REM Text Sample 

: REM Read Sample 

: REM Set counter to no. of 
characters in string 

: REM Tests next five characters 
(including spaces) 

: REM Increments Character Counter 


thesis. But it has given the machine 
translation and literary detection 
specialists a good deal to think 
about. 

Computerised linguistics is now 
finding a much wider, and acade- 
mically more respectable range of 
applications. In 1974 Dr. Andrew 
Morton created a legal precedent 
with his evidence that only 7 of 
11 police statements submitted in 
a case had been written by the de- 
fendant. The result was. an 
acquittal. 

In a recent book (Literary Detec- 
tion, Bowker, $22.00) Dr. Morton 
examined the difference between 
Jane Austin and The Other Lady, 
who in 1965 completed the novel 
which had lain unfinished since 
Jane’s death. Although in literary 
terms the imitation is quite good. 
Morton demonstrated that the pro- 
bability of Jane Austin having pen- 
ned the 4,000 words that were 
written by The Other Lady to be 
more than one thousand million 
against (see chart). 

With the continuing evolution of 
linguistics and the rapid pace of 
micro-processor development, it is 
reasonable to project not only con- 
siderably more accurate machine 
translation than my pocket Craig 
translator offers, but the prospect 
of an infallible literary detective. 
Post script: Having run this article 
through my PET, the computer 
confirms that it is almost certainly 
not written by Shakespeare. 


A comparison of Jane Austen and The Other Lady 
Occurrences of the Habit in 


_ Sense and Sandition Sandition : Chi 
Habit Sensibility Emma _ (Jane Austen) (The Other Lady) *- squared bi. 
an 395 26 11 29 (a). Ab) 3 
at+an 172 212 112 112 1.40 12.85 
a 147 186 101 So: 5 
P.B. such 14 16 8 2 0.20 § 3.92 
-and 253 299 151° 154 : 
P Bd, 12 14 12 ced cage 2.45 6.84 
the 270 Zt 229 221 
P.B. on 11 6 8 17 1.58 8.45 
F.W.S. 22 26 19 8 0.43 6.34 
this 32 39 15 S| 3 
this + that 126 144 52 37 0.25 3.64 
with 59 74 28 43 
with + without 77 84 38 47 5.02. 3.71 
very 37 68 26 27 
P.B. the 4 2 ‘2B 7 epee be} 


Notes: 1. The samples are: Sense and Sensibility — Chapters 1, 3, Emma — Chapters 
3. Sandition, Jane Austen — Chapters 1,6. Sandition, The Other Lady — 


5 Bee 
Chapters 12,24. 


2. The figures for chi squared are for the comparison of the three genuine 
samples, (a), and then for the comparison of these samples taken together for 
the comparison with The Other Lady, (b). 
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Cottage Computers 


a division of Embryonic Systems Pty. Ltd. 


ACOS 


We are the southern agents for MicroByte 


BINBUG 4.4 (VDU) 
BINBUG 5.2 (Terminal) 


ASSEMBLER 
BASIC 
SOURCE GENERATOR 


ene. oseaeseeeee: ° eotetatetetes oneeeete! ER Oe 


This fully tested, well documented sdtware 
with Furu your 2090 Deseo systee into a Full Product Info Sheets available 


powerful ,flexible microcomputer........ 
WE STOCK ALL ITEMS HERE at Cottage Computers .7x 


HERE IN AUSTRALIA‘+::The Amazing ACORN 


s 
The MK 14 is a kit of parts assembled by Sc lence of 


the user to form a minimum cost 
computer. It comprises in miniature the 
essential elements common to all 
computer systems. 
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Central Processor Unit SCMP CPU 
Fixed Memory 512 bytes 
Read/Write Memory —=——_256 bytes 
Users Terminal 
External Input/Output Edge connection, 


Acorn VDU 


Acorn System 


6502 or 6809 MPU 
EUROCARD Modules 
TELETEXT Compatible 
Colour VDU Card 
ACORN COS or DOS 
4K BASIC in ROM 
Come and see this remarkable english 
computer in action at cottage computers 


**MK 14 Kit $93 
**Cassette 
I/face $14 
**KVDU kit S69 
**PROM Prog.S24 


Extra Programs 
available soon 


| 


for 16 1/0 ports, 
8 data bus, flags and sense lines and 


supply 


Telephone: (03) 481 1975 
386 Queens Parade, FITZROY NORTH, Victoria 3068 


weicome here 


USINESS 


COMPUTING II 


The Mailing List 


The mailing list is often neglected in 
a business system. This is because 
most business systems provide a com- 
lete record of sales (the sales list). 


n such a sales record, the name of 


the customer, as well as all informa- 
tion relevant to the transaction, has 
been entered. At first sight, it might 
therefore look as if the system has 
all the information available that it 
needs in order to list customers for a 
promotional action. Technically this 
is correct. However, in practice, such 
a sales list is not usable as a mailing 
list for immediate use. 

For short mailings, the sales list 
can indeed be processed by a special- 
ised program which will generate the 
names and addresses and print them. 
For long lists (such as several thous- 
and names) direct processing of the 


sales list is completely impractical.’ 


First, it would be slow, as the infor- 
mation in the sales list is block struc- 
tured and only a few entries must be 
retrieved from every block. Second, 
the information in the sales list will 
normally be bulky, so that relatively 
few names will reside ona _ single 
poyaica! medium such as a diskette. 
rocessing the sales list will therefore 
require significant time and frequent 
manual changing of diskettes. In 
short, it is generally unacceptable. 

For efficient mail list management, 
it is also imperative that the user 
codes every transaction at the time it 
is performed. For example, the user 
might code the type of business, or 
the type of individual involved in the 
transaction. He might code the 
nature of the items purchased or the 
range of the sale. In this way, a com- 
pact code can be used which can be 
utilised as a selection criterion within 
the list. An efficient mailing list is 
created by processing the customer’s 
list or else the sales list periodically. 
It must be kept sorted, either alpha- 
betically, or by post code or by a spec- 
ial user code. In this way, whenever a 
new name is entered into the list, 
possible duplication can be checked 
immediately and efficiently. Even so, 
a typical mailing list, reduced to the 
name, address, and code, will contain 


By Rodnay Zaks 


a large number of characters for each 
entry. Let us look at it: it will con- 
tain the first name, middle initial, 
surname, title, company name, division 
or mail stop, street or PO Box, city, 
state, post code. In addition it will 
contain a5 to 20 digit code for efficient 
retrieval of names. Result: perhaps 
100 characters per entry. Let us 
assume that 80 characters are sufficient 
for our purposes. A typical block on a 
diskette contains 256 characters. In 
our example such a block would con- 
tain only 3 names. A typical diskette 
will provide about 1200 such blocks, 
and will therefore store about 3600 
names. 


This is not sufficient for most 
mailing lists. An efficient mailing list 
rogram should be capable of hand- 


ing anywhere from 1,000 to 10,000 
or 50,000 names. Clearly, such a sys- 
tem would be very cumbersome to 
use, aS diskettes would have to be 
changed manually frequently until the 
complete list is processed. This may 


not be acceptable. 

As a result of this constraint, 
microcomputers, restricted by their 
limited amount of disc memory, im- 
pose the necessity of a specially struc- 
tured mailing list file. An index block 
is created, which contains only a few 
bytes per entry. It contains the cus- 
tomer name or code, and a customer 
pointer, usually a number. In this way 
it can be restricted to 20 to 30 char- 
acters maximum. A complete diskette 
will be typically allocated to this 
mailing list index. Whenever a selection 
is to be performed, only the index 
block diskette needs to be mounted 
initially. As an example, the mailing 
list selection is for all companies in 
the distribution field, which have 
ordered more than $200 worth of 
parts in the last three months. The 
selection program will derive all its 
information from the index file and will 
generate a list of customer numbers 
meeting the specified criteria. This 
list can then be used by a simple mailing 
list printing program which will print 
the addresses from the customers or 
sales file, as selected by the list of 
customer numbers. Whenever the selec- 
tion has been performed, the program 
will start generating messages such as 
“please load diskette number 2-5”. 
This diskette contains the first block 


of entries that this mailing list pro- 


cessor wants to print. A number of 
diskettes will still have to be success- 
ively mounted on the system, if the 
mailing list is long, in view of the 
limitations inherent to each diskette. 
However, the complete _ selection, 
which can be a lengthy process, has 
been performed efficiently in a very 
short amount of time using only the 
index block diskette. A good system 
will write on a diskette the names it 
will peo and will signal the user on 
the CRT display that it wishes to 
have another specific diskette mounted 
next. The user will have the time to 
mount the next diskette while the 
ees is busy printing labels. By 

e time the printer, which is a slow 
device, has finished printing the last 
name of the previous diskette, the 
next one will already have been moun- 
ted. The system will perform at the 
maximum mechanical speed possible. 

The drawback of having to feed 
successive diskettes to a system can 
be eliminated by purchasing much 
larger hard discs or dual drive double 
density diskette drives. New low cost 
fixed head discs are beginning to be- 
come available. 


a _] 

Existing Software 
Facilities 
Most microcomputer systems available 
today offer the hardware capabilities 
required to peronn all of the opera- 
tions that have been described at 
sufficient speed, provided no com- 
plex arithmetic is required. Unfort- 
unately, no complete business prog- 
rams have yet been developed, which 
completely automate all the tasks re- 
Tee It can be seen easily from the 
above description that the task of the 
file management system and of the 
various processing programs is com- 
plex. Such programs have been crea- 
ted only for the larger computers. 

The cost of developing such prog- 
rams is much larger than the cost of 
developing the actual hardware on 
which it resides. For this reason, manu- 
facturers are usually not anxious to 
develop such expensive programs when 
they are in the business of selling 
hardware. Consulting firms and soft- 
ware houses have traditionally had a 
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good business selling ees pro- 
grams or packages to business users. 

Most sagen tapes cee systems avail- 
able today will offer a few business 
programs. Typically they will offer 
a general purpose file system, which 
allows the user to create and ae 
ulate files symbolically. This is totally 
insufficient. Specialised processing pro- 
rams must exist, which allow the 
usiness user to gather data automatic- 
ally, conveniently, to update it, and 
to have the computer perform auto- 
matically the necessary updates in 
other files. Most programs available 
solve only one of the problems. Usually, 
there is an accounts receivable pro- 
gram and a separate accounts payable, 
and a separate inventory program, 
and so on. These separate “packages’”’ 
are useful to maintain independent 
files. Provided that the number of 
transactions is high for any one of 
these files, they provide a valuable 
service. However, they do only part 
of the job. The business user is still 
required to update manuals all of the 
files that might be involved iin a single 
transaction. 


Micros in Business 


Now that the limitations have been 
pointed out, is this a reason not to 
consider a microcomputer system in 
a business application? No. 

The facilities that have been des- 
cribed are the ideal facilities for a 
business automation system. However, 
even solutions far from this ideal will 
provide benefits far in excess of the 
cost of the system. A useful system 
can be purchased for as little as 5 to 
10,000 dollars. Such a system with 
minimal software pe will permit 
the automation of the inventory, the 
accounts payable, the accounts receiv- 
able, and often other functions such as 
mailing lists, back orders, payroll or 
tax computations. Such benefits by 
themselves usually far outweigh the 
initial cost of the system. For this 
reason microcomputer systems are a 
very valuable tool for limited business 
automation. However it should be kept 
in mind that an invisible price will 
be paid. If extensive files are created, or 
if specific programs are written, the 
so-called “software investment” will 
become dominant. After a period of 
time, the investment in structuring 
these files or developing new programs 
will become more significant than the 
initial purchase price of the system. 
After a few years, limitations will be 
felt and there will be a desire to move 
to a larger, more complete system. 
Naturally there is a possibility that the 
manufacturer of the original system 
will have expanded its resources. Typ- 
ically this is unlikely in the long run. 
In view of the constantly decreasing 
price of hardware, it is likely that, 
within a few years, the hardware itself 
will be obsolete, and that the manu- 
facturer will be marketing a new system, 
which will not be completely compat- 
ible with the first one. The business 
user will then have to move to the new 
system and reformat his files and re- 

evelop new programs. 

However, it is. the author’s feeling 
that even if the first system is essen- 
tially abandoned after a few years, 
it will provide an extremely valuable 
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transition into the true computerised 
business management world. It is 
correct that the initial hardware in- 
vestment will have been lost after a 
few years, and that a substantial soft- 
ware investment might also be lost. 
However, this will have been trans- 
lated in a structuring of business pro- 
cedures, computerised operation, the 
training of personnel, and an aware- 
ness by management of the additional 
capabilities which will be needed in 
future systems. Such a system will 
provide immediate initial benefits that 
will typically far outweigh its cost, 
and it will provide substantial edu- 
cational benefits to its purchaser. 
After using such a system for one or 
two years, the intelligent purchaser 
who understands the nature of his 
needs, will be in a position to thor- 
oughly understand the ideal system 
for his business needs. At this point, 
his second choice is likely to be an 
optimal one. 

The comparison is analogous to 
the recommendation that a new driver 
should first drive a low cost car before 
purchasing a car of his dreams. The 
first machine may be _ inadequate, 
but provides educational value by 
expanding the skills of its user. 


Customer 
Business Programs 


Once the specific needs of a business 
have been identified, it becomes possible 
to evaluate whether a specific micro- 
computer system will meet its needs. 
If it does not, additional software 
programs or packages should be 
obtained. The essential question at this 
point is: is it worth writing a program 
or contracting outside to add specific 
rograms required by the business? 

he usual answer is: no. Clearly, if the 
programming capabilities are available 


in house, or if the educational value 


is significant to you, 
then it might be worth writing your 
own programs. The important point is 
that most business users simply thor- 
Ps, aed underestimate the amount of 
ffort needed for a usable correct, 
and documented business program. It 
is indeed possible to develop quickly 
in a high level language such as BASIC 
a program which will appear to meet 
the main needs. However, unless such 
a program is well developed, well docu- 
mented, well adapted to the needs 
of the business, and to the existing 
system, it might bring more harm 

an good. It might be found that 
after a certain number of items have 
been entered into a file management 
rogram, it becomes essentially useless, 
ecause its efficiency breaks down 
thoroughly, or simply because it is 
incapable of managing it. It might be 
found that when some types of data 
are used or entered, incomprehensible 


of programmin 


failures occur, which nobody in the. 


company is able to correct. Creating a 
complete, debugged, truly usable system 
is typically a long and expensive task. 
Unless the benefits are clearly justified 
by the high development costs of such 
a program, it is usually best to stay 
away from any tailorised development. 
Programs which have already been in 
existence for some time and tested on 


other users are the most desirable 
ones to obtain. In addition, a system 
should be integrated, from a software 
standpoint. All programs should be 
capable of handling common file struc- 
tures, and updating the required files. 

Additional programs simply added on a 

system might not be able to make use 

of its facilities or might create struc- 
tures which other programs will not be 
able to use. 

However, packaged programs might 
not be optimal for your specific bus- 
iness. In this case you will have to 
evaluate a trade-off: 

— packaged programs can be modified 
or adapted, preferably by an in- 
house programmer. This will result 
in a better efficiency of the pro- 
grams for your specific business 
procedures Or requirements. 

— customising, or adding programs 
will increase the overall cost of 
the system, and may detract from 
its reliability. 


Summary 


Most microcomputer systems are avail- 
able today with simple business pack- 
ages. These programs are designed to 
automate transactions. Any business 
with a large number of repetitive trans- 
actions will accrue benefits from com- 
puter automation. 

However, this is true only if the 
type of “standard package” available 
with the system fits the business. For 
example, a sales entry program might 
ask so many questions as to require 
twice as long as manual processing 
(this is usual). In such a case, the 
automation is worthwhile only if 
additional benefits accrue. Such add- 
itional benefits are: data entry discip- 
line enforcements, automatic process- 
ing or updating of other files, report 
generation. 

If these additional programs or 
benefits exist, then even a somewhat 
unoptimal, cumbersome, ‘“‘standard- 
ized’ data entry program will yield 
benefits. 

This is always the underlying ass- 
umption . Warning: if these addition- 
al facilities do not exist yet on the 
system you are considering you should 
evaluate trade-offs carefully. Many 
small businesses find manual order 
processing or manual bookkeeping more 
practical, and economical than a “‘stan- 
dard” business package. 

If a part-time programmer is avail- 
able, or can be justified, many special 
purpose programs can be developed 
that exactly fit the business. If the 
poem is good, all potential 
enefits of a computer system will 
accrue, resulting in a number of bene- 
fits, which have been described above: 
— efficiency, lower cost, increased 
reliability, instantaneous management 
information, improved collecting of 
receivables, automation of new business 
procedures autora reorder, credit 
check, specialised mailings). 

Microcomputers available today offer 
all the hardware resources required 
ie less than $15,000. Software is the 
ey. 

This is an extract from “An intro- 
duction to Personal and Business 
Computing”’, published by Sybex of 
313 rue Lecorbe, 75015 — Paris,France. 
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SPECIFICATIONS 

— Integral Mini Disk Drive Standard 
— Color Graphics on 128 x 128 grid 
— Extended Disk Basic 


— Up to 32 K/B user memory 
— 8080 assembler available 


APPLICATIONS 
Education: Programmed learning 
Small accounting or business systems = Graphics 
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APC is the pre-eminent publication 
in the field of microcomputers. 
Whatever your area of interest in 
microcomputing — be it business, 
home, educational — or simply as a 
leisure pursuit — APC is your passport 
to the future. Subscribe today, 
and sleep soundly at night, 
safe in the knowledge that your 
personal copy of APC will come 
thudding through your letterbox 
every month. 
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Fortran Only 


I can program in BASIC but 
only have access to a 
computer that uses Fortran. 
Can you foresee any problems 
that I may encounter when 
writing data processing 
programs in this language? 

D. Simpson, 


I find it hard to believe that 
there is ‘‘only Fortran’’ on 
any computer system. 
Anyway, that said the 
language has some excellent 
input and output formatting 
procedures so you should 
have no problem reading in 
data and designing the layout 
of your output documents 
provided that you master the 
FORMAT statement. Where 
you may have difficulty is 

in the actual handling of text, 
during the processing. There 
are differences between 
versions of Fortran so Ill 
stick to what is general and 
common to all the variations. 
You may use either REAL or 
INTEGER variables for 
storing strings but each 
variable can only 

hold 8 characters; by using an 
array it’s possible to hold 
strings of any length — e.g. 

if the array variable TEXT(3) 
has been declared then 

you'll be able to hold 8x3=24 
characters in it. By using the 
statement WRITE(n,m)TEXT 
and the associated FORMAT 
(1X,3A8) you'll get any text 
re-output. (Note that there is 
a difference between 8A8 and 
A24.) The next problem will 
be the comparison and maybe 
the sorting and swapping of 
these strings. These must be 
done using the Fortran 
utilities COMP, COPY, 
ICOMP and not by the usual 
methods. For example if 
variable A contains the word 
FRED and variable B 
contains the word BERT you 
will probably get an error if 
you try and compare them 
using IF(A.EQ.B); the reason 
will only be apparent if you 
are aware of the way in which 
text is stored. You’ll have to 
compare them with COMP 
(K,A,1,B,1). Your Fortran 
manual should give all the 
details that you’ll need when 
using these utilities. 

The next problems will 
occur in filing. If you have 
extended Fortran this 
supports direct access files, 
whereas ordinary Fortran 
needs extra utilities. Look up 
the Direct Access Backing 
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software and systems difficulties. 


store package if you need it. 
If, however, you’re not using 
direct access files this will not 
be relevant. 

I’m afraid that’s all that I 
can say in what must of 
necessity be a very brief 
reply; needless to say, write 
directly to me if you 
require any more details. 

SW 


Seeking To 
Justify 


A very simple question which 
probably has no simple 
answer... how do I right- 
hand justify numbers that are 
printed in BASIC? 

M. Carlyle. 

One of BASIC’s many failings 
is the formatting of output. 
Perhaps the language’s most 
frustrating feature is that all 
numbers are printed in left- 
justified form; almost 
certainly this is not what we 
require. There are BASICs 
that have the instruction 
PRINT USING. This allows 
fairly comprehensive form- 
atting, but unless you are 
able to buy this version for 
your machine (Research 
Machine’s 380Z will accept it 
for example) you are stuck 
with the problem. Incidentally 
if you have a PET printer this 
allows formatting of printout, 
not the screen display. 

I’ve seen several solutions 
to this problem, all of which 
use a subroutine to do the 
formatting for you. I’ve 
devised the following solution 
which should prove 
instructive to those of you 
who have never seen this 
technique used before: 
nay FNA(X)=1—LEN(STR$ 
X 


To implement this function 
and produce an output 
justified in the Yth position 


use PRINT TAB(Y+FNA(X)):X 


Probably of more use is a 
function that will allow you to 
align the decimal points; 
indeed it may also introduce 
a technique that’s new to 
some of you: _ 

DEF FNA(X)=-LENSTRS(INT 
(X)))-ABS(X)(1 )+(X=0) 
Implementing this function is 
the same — to align the 
decimal points in the Yth 
position use PRINT 
TAB(Y+FNA(X));X. 

This latter function may 
require tailoring because 
some versions of BASIC 
implement logic in different 
ways to others. The function 
will work unaltered if you 
get the answer —1 (minus 
one) to the statement PRINT 
(2=2). If you get the answer 
1 (one) then you will have to 
use this function: 


Every month in APC, Sheridan Williams will assist readers with their hardware, 
Some questions he will deal with himself, 
other enquiries will be directed towards members of his consultancy panel. 


DEF FNA(X)=—LEN(STR&(I 
NT(X)))+(ABS(X)\1)—(X=0) 
I’m sure that you will get 
many hours of pleasure 
(frustration?) out of untang- 
ling this function so [’ll not 
explain how or why it works. 
If you do have any problems 
you’re welcome to write to 
me direct (enclosing a 
stamped envelope, please). 


4 


Hizh or low 
level Chess? 


When is it better to write 
programs in a high rather 
than a low-level language? 
I’m asking because I’d like to 
create my own chess program 
and I’m not sure whether to 
use BASIC or not. 


First I'll start by giving you a 
definition. A high-level 
language is one where each 
source code statement is 
translated into many (some- 
times hundreds) of machine 
code instructions. 
Programming in a high- 
level language takes far less 
time than writing the same 
thing in a low level (assem- 
bly) language. Nowadays, 
cost of labour is one of the 
predominant factors in the 
production of a working 
computer system and, in 
general, the shorter the pro- 
gramming time the cheaper 
the program will be. How- 
ever, a- program written in a 
high level language will trans- 
late less efficiently , some- 
times taking 50% more space 
and half as much time again 
to run than the machine 
code equivalent. So for pro- 
grams where speed is 
important, or where the 
amount of available memory 
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is low, it’s better to write in 
machine code. 

An example of an ineffi- 
cient translation would be the 
machine code produced when 
the single BASIC statement 
LET A=X712 is translated ; 
the machine code produced 
could be immensely long, and 
up to 50 instructions may be 
needed to enable the compu- 
ter to find the log of X, 


multiply it by 2, and then 
antilog it. With very little 
thought this could have been 
coded in only a few instruc- 
tions. 

If ever you have used 
PEEK and POKE in a BASIC 
program, then you have 
effectively programmed in 
machine code. 

Finally, to answer your 
question on whether to write 
chess in BASIC or machine 
code. If you have a BASIC 
compiler rather than an inter- 
preter then go ahead in 
BASIC; the program won’t be 
as efficient, but it will be far 
quicker to write, and easier to 
debug. If, however, you have 
a BASIC interpreter (which 
most people have), then I’m 
afraid that you will have to 
write it in a low level 
language or it will be so slow 
as to be almost useless. Chess 
playing algorithms, are very 
complicated and require huge 
amounts of searching; speed 
is of paramount importance. 
A BASIC interpreter will 
work 100-200 times slower 
than the equivalent machine 
code! The reason is that 
instead of translating the 
whole program into machine 
code right at the start of the 
run (as acompiler will do) an 
interpreter will re-translate 
every line into machine code 
as, and when it comes to it. 
Sheridan Williams 


‘““Not only does it tell you your weight, but also when your 


feet need washing.”’ 
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Stock 
Discs 


I have been told that I should 
not look at cassette based 
micros for business purposes. 
I do not see why, as even a 
C60 cassette should in my 
estimation be capable of 
holding more than 50,000 
characters. My epersenes is 
for stock control, and I 
would be unlikely to have 
more than 1000 items on file 
at any one time. 


There are many reasons for 
rejecting cassettes in favour 
of discs. 

1 Even the 5% inch mini- 
floppy discs hold more on 
each side than the average 
cassette. I have seen figures 
from 70K to 350K quoted. 
This would save you having 
to change cassettes in order 
to swap between programs 
and files. 

2 You can hold many (usual- 
ly up to 40) programs and 


file from cassette could take 
up to 20 minutes, and yet 
only around 10 seconds from 
disc. 

4 Discs tend to be more 
reliable. . .this is because of 
the nature of the Philips 
cassette format and the 
cassette drives used. If digital 
cassettes with full logic 
control were used, this state- 
ment would not be true and 
also search times would be 
significantly improved. 

5 Discs are a ‘direct access’ 
medium, whereas cassettes 
are ‘serial access’. The advan- 
tage of direct access is that 
any record on a file is available 
for immediate use; in order to 
access the 1000th record 
from tape the previous 999 
must be read and discarded. 
With disc the read/write head 
can be moved directly to the 
relevant track. 

When discs are used, pro- 
gram packages may be 
written as a ‘suite’ of programs 
— one program calling the 
other when required. It is 
ferable to write many sm 
programs rather than one 
large one as each can be 
worked on and developed 


re- 


files on a single disc, and they separately. 


will be instantly retrievable. 
3 Cassettes can generally be 
read at between 30 and 300 
characters per second. Discs 
can be read at around 10,000 
ch/s upwards. To read a 50K 


Debtors 
Inventory 


Assembler 


Even if discs are used in a 
serial access mode (and there 
are many applications suited 
to serial access), they are 
considerably faster than 
cassettes. 


I suggest that you follow 
this by reading more on the 
subject of files. I have only 
just brushed the surface on 
one absorbing aspect of 
programming. 

Sheridan Williams 


Pet 
protection 


I have had a lot of trouble 
with the cassette tapes on my 
PET ‘losing’ data. I use the 
tapes to hold lists of names 
and addresses, and I have 

to keep re-typing them. This 
is very time consuming, can 
you suggest a (cheap) cure? 


The first obvious suggestion I 
can make is — have you read 
the PET manual; this gives a 
number of rules for using the 
tapes which help minimise 
the problems you are getting. 
As tape dropout occurs with 
many people I will summarise 
them here. 

1 Use only C30 cassettes, 
the mylar tape backing is 
thicker, and runs past the 
heads better 

2 Clean the heads frequently 
by, for example, using a con- 
ventional cassette cleaner; the 
recommended frequency is 
every five hours of use. 
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3 Don’t leave cassettes in the 
halted position with the play 
button down for long periods 
of time. This causes the 
rubber drive capstan to 
become temporarily dented, 
thus leading to frequent 
errors. 

4 Where possible use the 
verify command to check the 
tape is OK when initially 
written. 

As two further suggestions 
of my own, don’t try to cram 
too much data onto the one 
cassette — split your data 
over a number of tapes. 
Although it may take time 
to load and unload during a 
program run, it’s much better 
than having to re-type all 
your data. Don’t store your 
cassettes near a magnetic 
source (VDUs, televisions 
etc) as the magnetic flux can 
erase the information on the 
tapes. An advantage of using 
multiple tapes is that, should 
a tape dropout occur, then 
only one of your tapes need 
be re-written. 

The real solution to your 
problem (unfortunately it’s 
not cheap) would be to buy a 
second cassette recorder for 
your PET and “‘backup”’ 
(keep double or triple copies 
of your data). It is very 
unlikely that two tapes con- 
taining data would both go 
wrong at the same time. 


Jon R. Malone 


PET Disk 


Job Costing for Engineers 
Data Storage & Retrieval 


Creditors & General Ledger 


Word Processor 


prices on application. 


Typing Tutor 


APPLE Disk 


TRS-80 Disk 


Terminal Control. .... 


Line Printer 
Check Register 
Accounting System 
System Doctor 
Basic Toolkit 


Analysis Pad........ 
Disk Head Cleaner.... 


Cookbook ..; 3 = 
Molling List- $32.00 
Graphic Demo Disk....... free with 


for Trendcom 200 purchase of 


Trendcom 200 
Disk Head Cleaner. ......:.. 
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particles and automobiles, 


pSYCHIC RESEarcH 


ESP:PSYCHIC PERCEPTION 


~OR DECEPTION? 


TYRONE CRUDIS PEERS 
INTO THE UNKNOWN 


Extra-Sensory Perception, abbre- 
viated ESP, is the presumed 
ability to become aware of events 
external to one-self without the 
use of the known senses. Included 
in this definition are precognition 
or the knowledge of events before 
they happen; mental telepathy or 
the knowledge of the thoughts of 
another; and clairvoyance or the 
ability to perceive events or ob- 
jects at a distance. Whether such 
abilities exist in actuality is still 
a subject for heated discussion 
among __ scientific investigators 
today, as it has been for many 
decades. 

Some scientists discount any 
phenomena that do not occur 
regularly under conditions which 
are known and can be reproduced 
(‘laboratory conditions’’), but 
there is a whole alternate side of 
reality encompassing phenomena 
which are evidenced only by 
uncontrolled incidents appearing 
spontaneously. Examples _ are 
mutation in plants and animals, 
the effects of impact of ee 
ire- 
balls, love at first sight, and, per- 
haps, ESP. This article gives the 
background for, and examines a 
BASIC program which will test 
an individual’s ability to predict 
a coming event by ESP, and will 
evaluate performance in terms of 


Le 


the deviation from what could 
have been expected by chance. 


esting problems 

In tests of precognition, tele- 
pathy, and clairvoyance involving 
two persons, an experimenter and 
a subject, it is difficult to isolate 
one such ability from the others. 
For example, if an experimenter 
is shuffling and dealing cards while 
a subject in another room success- 
fully calls out what he believes 
each card to be, how can we tell 
whether the subject is using pre- 
cognition to predict the order of 
the cards, telepathy to read from 
the experimenter’s mind the name 
of the card dealt, or clairvoyance 
to perceive the card through the 
intervening wall? Clearly the exis- 
tence of the human experimenter 
causes the problem, and if he 
could be replaced by a machine 
capable of truly random shuffling 
and unimpeachable recording of 
the order of a deck of cards and 
of the guesses, telepathy at least 
could be ruled out. If the actual 
deck could then be replaced by 
an invisible symbolic deck, not 
shuffled or cut until the subject’s 
choice was recorded, a good argu- 
ment could be made that clair- 
voyance was also prevented, leav- 
ing pure precognition as the only 
possible mechanism to explain 
successful tests. 
Prior to the advent of compu- 
ters many complex  electro- 
mechanical devices were develop- 
ed to solve this problem and, 
incidentally, to prevent uncons- 
cious errors or conscious cheating 
on the part of the experimenter or 
subject from affecting the results. 
Your micro-computer offers you 
an ideal way to run such tests, 
isolating precognition from ll 
other potential results. The 
accompanying short program, due 
to F. Chambers of Co. Mayo, Ire- 
land, is designed to test precogni- 
tion in this way. While it uses PET 
graphics to good effect, these 
can be easily modified to suit 
other machines’ requirements. 


coring ability 

In order to evaluate perform- 
ance it is necessary to know not 
only how many right guesses were 
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made but also how much this 
number deviates from the number 
which might have been achieved 
by chance. 

Common sense tells us that it is 
equally probable that a fairly- 
tossed coin will fall heads or tails. 
The statisticians say that the pro- 
bability of heads is one in two or 
0.5, the probability of tails is 
also 0.5, and the probability of 
either one or the other occurring 
is 1, or a certainty. On the other 
hand, experience tells us_ that 
when we flip a coin a number of 
times we do not always get heads 
half the time. The mathematician, 
Jacob Bernoulli, (1654-1705) is 
said to have cogitated about this 
for twenty years before he came 
up with Bernoulli’s Theorem: ‘If 
the probability of an _ event’s 
occurrence on a single trial is P 
and if a number of trials are made 
independently and under the same 
conditions, the most probable pro- 
portion, X/N, of the event’s occur- 
rences, X, to the total number of 
trials, N, is also P; furthermore, 
the probability that X/N will 
differ from P by less than a given 
amount, power small, increases 
as N increases.’ ) 

Although this statement 
appears simple, it is a nest of subt- 
leties and traps and can easily 
lead us into fallacious inferences 
such as the so-called ‘“‘Law of 
Averages’? which many gamblers 
insist guarantees that a run of 
bad luck must be followed by a 
run of good luck ‘“‘to even things 
up’’. Not so! In infinite time the 
heads will equal the tails, but the 
pattern of events by which this is 
achieved cannot be _ predicted. 


inomial distribution 

In the deck of cards used for 
ESP tests the familair suits and 
values are replaced by five sym- 
bols for a total of twenty-five 
cards. If the deck is shuffled and 
cut and a random guess made as 
to the value of the card thus expo- 
sed, the odds are five in twenty- 
five or 0.2 that the guess will be 
correct due to chance alone. 
Such a situation where there is 
one “right”? category and one 
“wrong” category, is called by 
statisticians a binomical distribu- 
tion. In a binomial distribution 
the probability that X out of N 


selections will be right by chance 
is: 

N! < 

XTX P*QIN) 

where N! (read ‘‘N factorial’’) is 
1x2x3...x(N-2)x(N-1)xN. One can 
observe that the fractional term 
on the left is the number of com- 
binations of N objects taken X at 
a time. This is also known as the 
binomial coefficient for N and X, 
and tables of its values can be 
found in many handbooks. On the 
other hand our computers can be 
put to work generating them. P is 
the probability of being right by 
chance, which is 0.2 in the ESP 
card guessing case, and Q is 1-P, 
the probability of being wrong, or 
0.8. If this formula is worked out 
for each value of X from 1 to N, 
the result is a binomial distribu- 
tion, a stepped, bell-shaped curve, 
shown in Fig. 1 for N=100. The 
plateaux of the curve represent the 
probability of guessing exactly X 


ppraising results 


The standard deviation of the 
binomial distribution has been 
used since about 1885 as a basis 
for measuring the amount of 
deviation from chance of actual 
results in card-guessing experi- 
ments.(2) The quotient of the 
actual number of correct guesses 
less the expected chance number 
divided by the standard deviation 
is called the critical ratio. It is a 
measure of the unlikelihood of 
getting the results by chance: 
OR=X-PN 

(NPQ)? 
A ratio of zero indicates that 
chance alone is at work. A ratio 
greater or less than zero signifies 


that some factor other than 
chance is affecting the results. 
Whether this factor is ESP 


depends on how well the experi- 
ment is designed to exclude all 
other possible explanations. The 
larger the ratio, the greater the 
significance. A critical ratio of 
2.7 sigma, which has a probabili- 
ty of only about 0.0035 occurring 


me by chance, and corresponds to 31 
yg cuesses right in 100, is often used 


cards correctly by chance. The 
value of X corresponding to the 
peak of the curve is PxN, the pro- 
bability of a single trial times the 
number of trials; it is called the 
mean. A_ parameter called the 
standard deviation, symbolized by 
the Greek letter sigma, which 
represents the extent of scatter of 
points within the curve, has the 
value (NxPxQ)” or 0.4xN™” for 
this particular case. As the peak of 
the curve is made lower, and the 
skirts more extended, the stand- 
ard deviation becomes greater. 
Variance, an alternate term, is 
simply the square of the standard 
deviation. It is interesting to note 
from Fig. 1 that the probability 
of getting less than 7 or more than 
35 cards right out of 100 is so 
small as to be invisible on the 
graph; no less than 2x10-4. The 
probability of getting half the 
cards right is 1.6x10-11. 


as the minimum acceptable criter- 
ion for non-chance phenomena. 
Critical ratios in the twenties and 
thirties and above for individuals 
are reported in the literature of 
professionally-supervised tests for 
ESP. If you can achieve 3 sigma 
results on 100-trial runs you are 


- definitely material for the Society 


for Psychical Research.(3) 


andom 

number generation 

We now _ understand what 
parameters the computer should 
record and compute to appraise 
the results of an ESP test. We have 
not, however, discussed how the 
computer is to ‘shuffle’? and 
‘‘cut”? the ESP deck to ensure that 
the input to the subject is deter- 
mined purely by chance. Here, 
too, there are unexpected subtle- 
ties which must be dealt with. 
You may be in for a rude awaken- 
ing if you thought your computer 


could ‘‘generate’? random num- 
bers. 
In BASIC the command 


RND(X) produces a decimal frac- 
tion between O and 1. Generally 
in micro-computers X is a dummy 
argument; that is, the value of X 
does not affect the numbers 
generated. In some dialects of 
BASIC the argument is omitted 
and the function is simply written 
as RND. One or another algorithm 
is used which is known to generate 
a non-repeating series of decimal 
fractions, and each time RND(X) 
is called for, the next term in the 
series will be produced. Such a 
system is known as a: pseudo- 


random number generator. If you 
are not sure about how your 
computer responds to RND or 
RND(X), make a series of tests. I 


will wager that, starting from 
power on each time, the following 
program will give the same set of 
numbers for any positive value of 
SS 

10 FOR J=1 TO 10 

20 PRINT RND(X) 

30 NEXT J 


If it doesn’t, write to the editor 
and your inputs may make a use- 
ful collation for a survey article. 
In this connection, the Commo- 
dore PET  User’s Handbook 
implies that a different set of 
numbers is generated for each 
different X. This is not the case on 
PET's I have tested. However, it is 
true for PET that if X is given 
zero or negative values, fixed 
numbers are generated; that is: 
RND(0) always gives .564705882 
RND(-1) always gives 
2.99196472E-08, etc. 

How truly non-repetitive is 
your RND algorithm? My answer 
for PET is that it is non-repetitive 
enough for all practical purposes, 
which is to say that inanity set 
in after running 25,000 terms and 
finding that none of them was the 
same as the first term. You can try 
this with: 

10 X=RND(1):PRINT “X=”"X 

20 Y=RND(1):N=N+1: 

PRINT N;Y 

30 IF Y=X THEN STOP 

40 GOTO 20 

... or something similar in your 
own dialect. 

How random is your RND 
algorithm? Here’s a_ well-known 
little demonstration, sometimes 
done with darts and a board, 
which should give you confidence 
in your computer’s randomicity 
(if it merits it): Fig. 2 shows a 
square enclosing the quadrant of a 
circle of unit radius. The ratio of 
the area of the square to the area 
of the quadrant is 4/7 as can be 
determined by observation. 

The following program genera- 
tes random points in X, Y within 
the square. It tests to see if they 
are within the quadrant, and sums 
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them in K if they are. The step 
number and the result to date are 
continuously updated until the 
final step. Punch this in and let it 
run for a few days. You may be 
surprised by the results. 


80 REM: ‘tGENERATOR’ 
90 PRINT“[CS] ”:K=0:FOR J=1 
TO 5000000:PI=4%K/J 

100 X=RND(1):Y=RND(1): 

IF Xt2+ Yt2)1 THEN 120 

110 K=K+1 

120 PRINT“[HO] J=” JTAB 
(22)“n=“Pl 

130 NEXT J:PRINT“[CS] 7=”PI 


I note with humility that the 
legislature in the — sovereign 
state of Kentucky in the United 
States of America once planned 
to pass a law making 7 equal to 
22/7. An even better approxima- 
tion, incidentally, is 355/113. 


PReriomizing the start 
Clearly we can’t afford to 


have our ESP Test program 
always generate the same sequence 
of symbols from power on! Like 
Caesar’s wife, the test must be 
above suspicion in this depart- 
ment. One good way to ensure 
this is to randomize the point of 
entry into the table of random 
numbers. If your computer has a 
real-time clock, a simple technique 


Thea maker 


AREA OF SQUARE 
AREA OF QUADRANT 


applicable also to games is to use 
the clock time to determine how 
many successive generations of 
numbers are to be ignored before 
the first number is used. This need 
only be done once in a series of 
tests. For example, the PET has 
among other clocks a dedicated 
variable named TI which counts 
the number of jiffies (1/60 secs.) 
since power on up to 5184000, 
or 24 hours. At the point in the 
program where the first random 
number is required one can 
instruct the computer: 
10 FOR J=1 TOTI 
20 X=RND(1) 
30 NEXT J 

. or the running time can be 
held to a certain maximum by 
substituting OOGTINT(TT 1060) 
(TI),3)) or TI-1000*INT(TI/1000) 
or a similar expression for TI. 
Another good way is to let the 
random number generator run 
continuously until the subject is 
through reading the instructions. 
For example the program might 
read: 
10 PRINTSSPRESS ANY KEY 
WHEN READY.” 
20 X=RND(1) 
30 GET A$:IF A$=*”GO TO 20 
This is the technique incorporated 
in the accompanying program. 


ingle digit 
random numbers 


Having achieved the eminen- 
ce of Caesar’s wife, random-wise, 
you may now ask what we are to 
do with these random nine-digit 
numbers between zero and one, 
since what is required is random 
one-digit numbers from one to 
five inclusive. Those who know 
the answer may skip to the next 
paragraph. The answer ts: one can 
generate integers from 1 to A with 
the expression: 
INT(AxRND(X)+1) 

A*RND(X) will change the range 
from between zero and one to 
between zero and five. In most 


micros, INT(Y) will generate the 
greatest integer not greater than 


Y, changing the range of our 
expression to the integers from 
zero to four. The addition of one, 
either within or without the 
parentheses, will shift the range to 
the integers from one to five. 
(There is one intentional error in 
this article. Readers who spot it 
and who approach the editor on 
or about the birthday of the dog 
Laika, (and who can correctly 
identify the dog Laika) will be 
treated to a drink — in all Laika- 
lihood). 


Prozam comments 

With all these concepts firmly 
in mind we can now confidently 
analyse the appended program, 
“ESP. TEST”. submitted by —f. 
Chambers. An earlier version is 
available on cassette from 
Commodore’s library. 


LINE COMMENT 

100 Good practice to give clear 
statement of title, author, 
and date, with room for 
addition of notes on future 
modifications by others 
without renumbering. 400 
lines is a bit more than 
enough, however! Good 
practice not to use line 
numbers below 10, as single 


digits can sometimes be 
entered in error in the 
‘ready’? state by novice 


operators, thus wiping out 
lines having those numbers. 
Instructions: I am glad to 
see the title printed as part 
of the instructions; I also 
approve the use of double- 


000 


spaced text throughout. 

0990 Randomizes the start of the 
random numbers table (see 
text). 

600 X= incremental count of 
successful trials; N1= incre- 
mental count of total trials. 

630 F=] flags the sample run of | 
symbols. 

645 Good practice. 

670 N= number of trials. 

690 SS= symbol selected by sub- 


Probability of guessing ESP cards correctly by chance in 100 trials 


“ |Mean = 20 
STD. Dev. = 4 


0.075 


0.05 


0.025 


Probability of guessing exactly X cards correctly. 


Y= 
° 
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| ject; S= numerical equiva- 
lent. 


800 Generates random numbers 


from 1 to 5; R= symbol 
selected by computer. 


910 See Table 1 for PET pro- 


gram listing conventions. 
These graphics can be re- 
designed for computers that 
do not have PET’s facilities 
in this department. The 
author has not copied the 
original ESP graphics faith- 
fully for technical reasons. 
They included a circle and 
parallel, wavy lines. 


1500 Routine to display sample 


graphics. Delay using the TI 
clock. 


1570 Routine completed, flag 


reset. 


1600 Increment trials count. 
1610 If guess was correct, incre- 


ment success count. Print 
response. 


1640 End of run. 
1710 Rounds off percentage to 


three figures (five places 
because of decimal point 
and the blank which preced- 
es all numerals. Same affect 
could have been achieved 
with INT(X/N*1000)/1000. 


1740 Equivalent to (X-Mean)/ 


Std. Dev. 


1800 Some may not care for this 


kind of touch or for line 
675, put i tind. them: re- 
freshing. 


PET Program Listing Conventions (4) 


any text in brackets is to be inter- 
preted as instructions to print 
cursor, clear, home, space, or 
reverse symbols. 

cursor up. 

cursor down. 

cursor left. 

cursor right. 

clear screen. 

home. 

reverse. 

reverse off. 

shift (hold shift down for next 
symbol outside of brackets. 

shift lock (hold shift down for all 
symbols outside of brackets until 
advised otherwise or end of line. 
shift release (cancels SL). 


SP: space. 

Example: “[5CU 3CR]”’ : print 5 
cursor up symbols followed by 3 cursor 
rights. Note that it is not necessary to 
specify that these require the use of the 
shift key. 


eferences 


: This simplified statement of Bernoul- 
lis Theorem is due to James R. 
Newman and is taken from ‘The 
World of Mathematics’? vol.3_ p. 
1448: Simon & Schuster: New York 
1956. 

: “Extra-Sensory Perception After 
Sixty Years’: Rhine et al: Henry 
Holt: New York 1940. Devotes one 
chapter and an appendix to the 
mathematics of proper statistical 
analysis of ESP tests. 

: The Society for Psychical Research: 
1 Adam and Eve Mews, London W8 
- Derived from suggestions by J. 
Collins and other sources: readers’ 
reactions will be appreciated. 


Program listing 


1@@ REM “ESF TEST’ BY F. CHAMBERS REV. 5.75 

SQG PRINT'IN"SPCS1S3"ESF TEST aS 

505 PRINTSPC(143"— 

516 PRINT“ MATHIS PROGRAM TESTS ONE VARIETY oF 

S20 PRINT" @EXTRA-SENSORY PEECEPTION: THE SEILITY TOMPREDICT FUTUR = 
53G PRINT" @ WILL SELECT ONE OF FIVE ape” oe 
S40 PRINT’ @RANDONLY BUT WILL HOT DISCLOSE IT UNTIL 

550 PRINT" @HCU HAVE RECORDED YOUR PSEDICTION. 

SéG PRINT" MITHE FIvE SYMEOLS ARE DIAMOND. FaRALLELS. " 

S78 PRIHT"CROSS. TSIANGLE, AND SauUARE. 

S75 PRINTSPCC142° 

5386 PRINT'@ SSESS AMY KEY To TURN FSOoE. 

596 R=RNDC12 GET K$- IS ¢="" soTosae 


S66 H=8°H1=68 

S16 FRINT"MO9 YOu WISH To SEE THE S'YMEGLS REFCRE 

526 PRINT" SSTARTING? PRESS “Y FOR YES. “N° FOR NO. 

$36 INPUT WS°IF Y¢=""" THEN F=1 GOTO1SeS 

S4@ IF Y#="N" THEN 65a 

645 PRINT" WRONG KEY: TS) AGAIN." SOTO 636 

ae PRINT"OHOW MANY TRIALS DD YOU WISH TO MAKE? I 

666 PRINT" SSUGGEST A MINIMUM OF 25 FOR STATISTIZAL MSI CANC - 
676 IMPUT H: IFH<=8THEN6Se tetas ee telice 
S°S IF N>1@6 THEN PRINT" RI HAVE THE TIME IF you peo! 


S80 INPUT"MOK. ENTER YOUR FIRST SYMBOL SELECTION aD. P.C.T.O8 29":$¢:Go0To7aG 


S596 IHPUT"SEMTER 'rOUR NEXT SELECTION ¢D.F. 7.0.08 Som"; s¢ 


766 IF s#="D" THEN S=1:GOTC 8o@ 
710 IF S¢$="F" THEN S=2 GOTO sae 
728 IF S#="C" THEN S=3 GOTO soe 
738 IF S$="T" THEN S=4 GOTO 3a6 
746 IF S#="S" THEN S=5 GOTO San 
7o8 PRIHT"THWRONG KEY TRY AGAIN." GOTO 636 
3060 R=INTCRNDCS 2855 +1 

326 IF R=1 GOTO 966 

33@ IF R=2 GOTO 1986 

348 IF R=3 GOTO 1186 

356 IF R=4 GOTO 1285 

36@ IF R=5 GOTO 1368 

306 REM DIAMOND GRAPHICS. 

S108 PRINT'S'SPC¢(135" eee 
328 PRINTSPC(1S)" eersgy 

338 PRINTSPCC17>"SPar “NAN 

3446 PRINTSPC(16)" 97a ‘“q4 
35@ PRIHNTSPCC1S)" sar bh | 
368 PRINTSPCC15> "ae ver 


365 PRINTSPCC16> "4a vw 
378 PRINTSPCCi7>"“S wer 

3°S PRINTSPCC1S) "Sawer 

336 PRINTSPOCC199" 7 

985 IF F=1 THEN 1548 

336 GOTO 166% 

1666 REM:PARALLEL GRAPHICS. 
1616 PRINT"T"SPCC1S> "Sea 
1826 PRIHTSPCOC 15 > " licences 
163@ IF F=1 THEN 1546 

1646 GOTO 1686 ~ 

1166 REM: CROSS GRAPHICS. 

1118 PRINT"O"SPC°13)" Sees" 
1126 PRINTSPC*139"a " 

1130 PRINTSPCC13>"2 “ 

1146 PRINTSPCC15) "eee See" 
1150 PRI” ee 
116@ PRINTSPCC1S>"0 " 

1178 PRINTSPCSiso"g " 

1188 FRIHTSPCCiSo"2 " 

1196 IF F=1 THEN 1548 

1195 GOTO 1664 

1206 REM: TRIANGLE GRAPHICS. 
1216 PRINT"O"SPCC19> " eee 
1226 PRINTSFC(13)" Far 

1234 PRINTSPC(17)" ar “NN 
1248 PRINTSPC(16)" 97a “EN 


1258 PRIHTSPCC15)" ar bi 
1266 PRINTSFC(14>" ar be be 


127°@ PRINTSPCC 14> Beemer 
1286 IF F=1 THEN 1548 
1296 GOTO1668 
1366 REM: SQUARE GRAPHICS. 
1318 PRINT"S"SPC(16> " eae 
1326 FOR W=1TOS:FRIHTSPCf159"2 @ a" 
1336 NEXT W 
1346 PRINTSPCC 16>" Ra 
1356 IF F=1 THEN 1546 
1368 GOTO 1668 
1566 REM:PRINT SAMPLE GRAPHICS. 
1518 FOR K=1 To 3 
1528 R=K 
1538 T=TI° GOTO 32a 
1544 IF TI<sT+126 THEN 1548 
1556 T=TI 
1568 NEXT K 
1576 F=6: GOTO 656 
1669 N1=N1+1 
161@ IF S=R THEN X=S+1° PRINT" SIMSRIGHT! "5: GOTO 1638 
1626 FRINT"MARWRONG. ": 
1638 PRINT #"CORRECT OUT OF "H1i"TRIALS. " 
1648 IF Ni=H GOTO1Ta& 
1658 GOTOESe 
17°@@ REM:END-CF-GANE ROUTINES 
1764 PRINTSFCC149"R 
1°65 PRINT"# PRESS ANY KEY’ TO SEE RESULTS. 
1766 GET K¥:IF K#="" GOTO17H6 
1718 PRINT"CMVYOUR PREDICTIONS WERE"LEFT#.STRI x He 18G),52"% CORRECT. 
1728 PRINT" @CHANCE RESULTS WOULD GIVE 287) CORRECT. 
73@ PRINT"MWOUR PREDICTIONS HAD A CRITICAL RATIO oF" 
1746 PRINTLEFTS(STRE¢ OSEAN SRSOR OMI O0. 32" STANDARD DEVIATIONS, " 
Fo PRIHT"MA FIGURE GREATER THAN 2.7 5.0. WOULD BE" 
1760 PRINT" M@SIGNIFICANTLY HIGH FOR A RUN OF 25 OF RIORE. " 
1778 IMPUT" ANOTHER RUN? <o''? OR “Noo" SE I vse" GOTO6ee 
17°86 IF Y’¢= "N" SOTO 1368 
1738 PRIHT"WRONG KEY: TR’ ASAIN": GOTO 1776 
1¢6@ PRINT"MOK. IT°S BEEN A PLEASURE TO COMPUTE FOR" 
1918 PRINT"SYOU. TRY ME AGAIN SOOH!" "END 
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Ready for business. 
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CBM Business Computer System. 


From the truly bewildering torrent of superlatives, claims, promises and 
come ons in the computer marketplace, how do you choose a microcomputer that’s 
night for you? 

Four things determine the suitability of a microcomputer: Hardware, 
Software, Service and Price. 

At Hanimex we've got it all together with Commodore Business Machines: 
[] All components and equipment are designed and manufactured by 

Commodore ensuring total System compatability. Every CBM System is tested 
prior to installation to guarantee maximum reliability from the day you plug 
it in. 

[] An array of software programmes is available for business and other 
applications including General Ledger, Creditors, Debtors and Word 
Processing. 

However, if you require additional or specialised programmes these can be 
produced easily and inexpensively because of the advanced software tools 
built into CBM Systems. 

(] Hanimex and your Commodore Dealer have a serious commitment to service. 
Thanks to modular design and Self-Diagnostics, problems can be identified 
and remedied quickly and complete customer maintenance service is 
available. 

[| And when you finally get down to the price you will find that the Commodore 
Business System is more computer for less money. And a computer that will 
pay for itself faster. 

|} Along with Commodore, we at Hanimex are planning for the future needs of 
the business and professional worlds. Our main customer is the small 
businessman, but professional programmers, engineers and others are also 
finding our products invaluable. 

(J We are proud to offer this high quality product at an incredibly low price and 
CBM Systems are available for immediate delivery from the nationwide 


network of Commodore Dealers. 
Distributed by 


Cz commodore’ HHANIMEXx 


Commodore Business Machines Division. 
Ph: (O2) 9880275 
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SYSTEM 


APC recently had access to a 
System 80; Z-80 based, it’s 
fully compatible with the TRS-80 
level I. The machine, an 
integral processor, keyboard and 
cassette drive, plugs into the 
domestic TV and is no bad way of 

“getting into’’ computing. 


It has a socket for attachment of an ex- 
ternal cassette, quite useful if you 
encounter load problems, as I did. It 
seems that some of the commercially 


available tapes, while being suitable for 


the TRS-80, need some means of volume 
adjustment on the System 80. ~ 

We lent the machine to Ian O’Neill 
(who has used a TRS-80 for some time 


now) to see what he thought of it. Here 


are some of his comments: 


“The built-in cassette recorder 


=A 
80 


worked well and cut down the number 
of leads needed to connect the system 
to. the mains and to other units. It also 
offered a manual/computer control 
switch, ideal for rewinding etc. All the 
TRS-80 programs from my own system 
loaded perfectly, both on the internal 
cassette and on an externally connected 
one. I also liked the built-in power 
supply.” 

One or two things are worth men- 
tioning in addition to Ian’s comments. 
It has a double width character switch 
which stretches the characters that 
appear on the screen, thus making edit- 
ing much less of a strain on the eyes. 
There is a reset button tucked away 
behind the keyboard which resets the 
machine when and if it locks. This can 
happen if reading a poorly recorded 
tape for example. Finally, the S100 bus 
ensures compatibility with a wide range 
of peripheral devices. Returning to Ian’s 
comments, he also noticed a few things 
that he didn’t like: 

“The monitor I used had a severe 
attack of the shakes when attached to 
the: ‘80’ and I also failed to get it to 
work with either of our domestic tele- 
visions. It'seems that I should have tuned 
them in, something I didn’t realise at 
the time. Perhaps the instructions could 
be clarified. I found the convention of 
calling the return key “new line” repul- 
sive — I don’t know why, I even prefer 
‘enter’. Ah well, it’s not that important 
I suppose. One fairly serious omission 
from the keyboard was a ‘clear’ key; 
and, despite the assurances of the sales 
blurb, I could find no justification for 
the claim of ‘ full cursor controls ’; there 
is only backspace and new line. 

The manuals, although first 
attempts, appear sufficient and are pro- 


bably easier on the inexperienced owner 
than the detailed, though excellent, 
TRS-80 Level II manual. The literature 
seems to have been written with the 
American user in mind and hence it is 
over-simplified in places and littered 
with bad grammar and American 
spelling. 

“The BASIC is very compatible with 
that of the TRS-80 as is shown by the 
benchmark timings (in seconds), which 
are as follows: 

BM1: 2.7, BM2: 11.6, BM3: 28.0, BM4: 
28.5, BM5: 31.3, BM6: 51.9, BM7: 
81.0, BM8: 11.7 

One final thing — numeric keypad 
freaks will be sorry to hear that there is 
no convenient place on the System 80 


to fit a keypad, as there is on a TRS-80.” 


Our view of the system is that it is 
an economical way of “getting into” 
personal computing. Its main disadvan- 
tage is that if you use the family telly, 
as I do, then either the family has to 
prefer watching you playing with the 
computer or your computing time will 
be severely curtailed in the interests of 
domestic harmony. — David Tebbutt 


TECHNICAL DATA 


CPU Z80 

Memory 4K RAM 

Screen Own television or monitor 
64 or 32 characters per line 

Cassettes Integral or own domestic 
connected through DIN 
connector 

Bus 5100 

Ports Up to 256 through 


expansion box 
Languages TRS-80 Level II compatible 


SALES LEDGER 


The life blood of most businesses is their cash flow. In fact many small businesses go bankrupt 
because they find it impossible to get their customers — particularly the large ones — to pay their 
accounts on time. Not surprisingly, we are concentrating the first of our regular software features 

on the control of a major source of business cash — The. Sales Ledger. 


OBJECTIVES OF 
SALES LEDGER 


The job of the Sales Ledger is to control 
and record details of monies owing to 
a company from the sale of their prod- 
ucts or services. If you were to ask the 
accountant what he would expect to 
find in his Sales Ledger system he would 
probably reply something like this:— 
“TI must be able to post dated invoice 

or credit note amounts to the account 

| of the customer concerned. Similarly I 
must be able to post any cash I receive 
from the customer. I want a free choice 
in the type of accounting system to be 
used. If I choose a balance forward 
| system I would only expect to see details 
of transactions in the current period, 
but I may wish to have dated.balances. 
If I chose an open item system I’d 


want reference numbers against each 


there 


are other interested parties. 


invoice and credit note. I might want to 
produce remittance advices so that my 
customers can tell me which invoice 
they are paying and I’d certainly need 
to be able to allocate cash paid against 
invoices. I’d also need to be able to deal 
with cash I can’t allocate which may 
mean that I need to be able to indicate 
any invoices which may be in dispute. 
Whichever accounting system I may 
choose I would like to be able to change 
to the other easily; of course I’d accept 
a compromise in going from balance 
forward to open item. I might want to 
have some of my customers on open 
item and the rest on balance forward. 
I'd definitely expect customer state- 
ments to be produced at the end of each 
period and I’d probably want an aged 
debtor analysis to pinpoint my bad pay- 
ing customers.” 

Now although Sales Ledger is prim- 
arily the province of the accountant 


The customer for instance may like to 
see payment terms clearly stated, par- 
ticularly if he can take advantage of any 
prompt payments discounts. The Sales 
manager may wish to see some analysis 
codes in the system so that he can do 
reports by Rep. or area. The auditor 
may wish to see Sales and Cash day 
book listings to assist him in audit trials. 
The salesman may wish to enquire at 
any time on the indebtedness of his 
customers and he may need to know 
how near to their credit limit they are. 

Finally Sales Ledger packages are 
rarely implemented on their own so 
linkages may be important. Are the 
input transactions produced automati- 
cally by the order processing or invoic- 
ing system? Are nominal ledger trans- 
actions created automatically by the 
system? Having to re-print inform- 
ation already known by the system can 
be a time consuming job. 
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SoutH West TECHNICAL 
Propuct CorRPoRATION 


mMmcAo 
COMPUTER 
SYSTEMS © 
SOLUTIONS 


intelligent Terminal 
IF YOU HAVE A BUSINESS OR 
SCIENTIFIC PROBLEM THAT 
CAN BE SOLVED BY COMPUTER 
— WE HAVE THE SYSTEMS SOL- 
UTION, AND AT PROBABLY 
MUCH LESS THAN YOU WOULD 
EXPECT TO PAY FOR OTHER 
SIMILAR SYSTEMS. 


Southwest Technical Products Systems give 
you unmatched POWER, SPEED and 
VERSATILITY. 

@ Two Central Processers with 56K 
& 128KRAM expandable to 768K 
using Motorola’s latest 6809 
micro. 

@ Three Disk Drive types, 175K, 
2.4M & 16M Bytes. 

@ Large range of Printers, 80 & 130 
Column High Speed DOT 
MATRIX and DAISY WHEEL. 

@ Powerful and versatile Intelligent 
Terminal. 


COME AND SEE THE SWTP RANGE AND 
TALK OVER YOUR SYSTEMS PROBLEM 


GFS ELECTRONIC IMPORTS 
15 McKEON _ ROAD, 
MITCHAM, VICTORIA, 3132 
PH (03) 873 3939 CABLE: 
‘“CQMIMPORTS”’ MEL. 
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‘ Aged balances 


SYSTEMS 


Retail 
Sciences 


Distributor Hanimex 


TASKS 

Post Invoices 

Post Credit Notes 

Post Cash 

Balance forward 
system 


Open item system 

Allocate cash 

Unallocated cash 

Mixed systems 

Statements 

Aged debtor 
report 

Sales tax analysis 

Sales day book 

Link to Invoicing 

Link to Nominal 
Ledger 

Link to Stock 
Control 


VOLUMES / SIZES 
Max. customers 


mK MM MM 


Xx 
X 
X 
Xx 


rae 


Dicker 


/ disc 1000 60 200 | varies|varies| 399 

system 1000 1200-2000 900/6000 
Max. transactions 

/ customer 3000 1200 1750} varies | varies| >500 

system 30000 3600 3000 1900/14000 


Max balance ($) 


| Max. transaction 


100,000 


EVALUATIONS 


IMS Sales Ledger 

This system was written by Integrity 
Management Services of Melbourne 
(03-51 9156). It is available from most 


amount ($) 


. hardware retailers at around $500. 


The price does not include custom- 
isation but it is available at a cost 
related to the modification involved. 
The minimum requirements of the 
package are a 48K CP/M system, dual 
floppy disc and a printer. There are 
sixty users at present throughout 
Australia. 

Documentation comprises an oper- 
ators manual and, if the program 
source is purchased, a design manual. 
The 70 page operator manual includes 
a step by step introduction to running 
the system and sample printouts, while 
program descriptions and file structures 
and layouts are contained in the design 
manual. 

The package is written in BASIC and 
a three months warranty against soft- 
ware bugs is provided. Training is 
available at an extra charge. 


Melbourne Byte Shop 

Written in Australia by Davidson 
Software, this system is available from 
Melbourne’s Byte Shop (03-568 4022). 
The basic price of the package is $1000. 
The system is very easy to operate and 


1,000,000 | 9,999,999 | 10,000,000 


1,000,000 


OTHER SALES LEDGER PACKAGES KNOWN BUT NOT EVALUATED 


varies | varies} 99,999} 9,999,999 


varies | varies}99,999} 999,999 


needs little reference to the compre- 
hensive, user-orientated documentation. 
Minimum hardware requirements are a 
64K CP/M system, 8” dual drive double 
density floppy disc and printer. The 
program is written in BASIC. Training 
and customisation are available at an 
agreed price, while any bugs that creep 
in are corrected free of charge. 


Dicker Pty. Ltd. 

This system was written by Retail 
Sciences and is distributed in Australia 
by AJ & JW Dicker (02-524 5639). 

The package is an integrated Invoic- 
ing, Accounts Receivable, Accounts | 
Payable and General Ledger system and 
costs $1950. 

The cost includes installation and a 

period of training to be arranged between 
user and dealer. The minimum hard- 
ware requirements are a 48K CP/M 
system, SOOK of on-line disc storage 
and a 132 column printer. There are 
over a thousand users at present. 
The documentation provided is a three 
part users’ guide which includes a 
general system overview, system design 
and capacities, program descriptions, 
explanation of error messages and 
suggested operating procedures. The 
package is written in BASIC, and 
customisation is done as required at an 
agreed price. 


Pitt Street Microcomputers 02-569 8228 
Computer Power Australia 03-645 3333 


GFS Electronic Imports 03-873 3939 


The Computer Company 
Hanimex 02-938 0400 


FASTER, MORE EFFICIENT 
PROGRAMMING 


What can you do to make your programs 
faster and more efficient? This article 
will hopefully provide the personal 
computer Ha detail with ways of 
speeding up his programs. Avenues 

ready exist for those with money — 
companies and firms where ten thous- 
and dollars here and there is easily 
found. Those with money have several 
options open to them: they can buy 
a faster computer, buy a faster interp- 
reter!, or pay a “software house’? to 
write the program for them. I have, 
however, yet to come across a pro- 
ae written by an amateur or pro- 
essional that cannot be made faster. 

It is not always a good idea to 
concentrate solely on making the 
program faster, because in doing so it 
may become longer and/or less accur- 
ate. Nevertheless there are ways that are 
well worthwhile implementing which do 
not make the program longer or less 
accurate. 

Improvements in speed are particul- 
arly worthwhile on slower computers. 
Today’s large mainframe computers are 
so fast that a 20% saving in a response 
time of one second is unnoticeable; but 
a similar saving to a micro user could 
save ten seconds or more. 

If you are like me then I think that 
you will get great personal pleasure 
from improving your programs — 
even ones which are se or bought 
can usually be improved. 

I have written hundreds of programs 
and have yet to be entirely satisfied; 
they could all be improved in one way 
or another. I have a program that 
takes 15 seconds to reply in a 3-D 
noughts and crosses game; it used to 
take over 30 seconds, but by observing 
the points outlined later I managed to 
halve its time of response. 

Okay then, let’s get started on 
some ways to speed up programs. 
These processes may only make the 
- program 10-20% faster, but they could 
make a staggering improvement. I 
once wrote a program that would 
have taken 8600 years to perform 
some routine. It only required a small 
modification and the same _ routine 
worked in 0.4 seconds — a slight im- 
provement. Here are some ways in 
which a student of computer science 
is taught to manage programs more 
efficiently. 


One line 


Improvements 


The statement LET X = A 2 could 
be made 7 times faster written in this 
way: LET X = A*A. Powers are much 
slower than multiplications. 

Similarly replacing LET X = A 3 with 
LET X = A*A*A will give a 6 fold 
improvement; non-integer and higher 
powers are not worth altering. 

The statement LET X = 2*A could be 
made 6% faster written in this way: 
LET X = A + A. Multiplications are 
slower than additions. 


Function 
Evaluations 


Remember that certain operations are 
faster than others, the usual order for 
decrease in speed is given below. If a 
statement can be replaced by one 
further up the list then usually it 
results in a faster execution. 


Each line takes successively longer 
than the previous one. The order of 
these functions may vary with differ- 
ent interpreters and should be checked 
with the manuals, or by running the 
benchmark tests mentioned later in 
the article. 


Array 
Variables 


Do not use array variables unless ab- 
solutely necessary. Always replace LET 
A(1) = 3*A*B with LET Al = 3*A*B 
unless of course you need the modified 
address that ACL) can provide. It takes 
most interpreters 65% longer to find 
an array variable in store than an ordin- 
ary variable. 

Another failing is the use of the 
same array element on successive lines. 
The left hand example is 10% slower 
than the right hand example. 


1OLET X= A(P)t3 5 LET T= A(P) 
20 LET Y=A(P)t4 1@ LET X= T+3 
38LET Z=6*A(P) 2@LET Y=T+4 

3@ LET Z= 6*T 


Successive calls of the same arra 
variable are inefficient. Even hatch 
the right hand program is longer, it 
is faster. 


FOR ...NEXT LOOPS 

FOR ...NEXT loops are the fastest 
way of performing a loop, so should 
always be used in gpa to the 
LEE 2 4e..... THE 


loop. The for- 
mer are staggeringly faster, often 
anywhere between 200% to 2000% 


faster. Example below 
19 LET A= 26 FOR A= 1 To 1808 
20 LET A=A+1 3@statements within 


loop 
3M statements withinloop 4@NEXTA 
4Q91If A 1000 THEN 29 
In addition to the FOR loop being one 
line shorter, it only takes 3 seconds 
for execution as compared to 12 sec- 
onds for the LET. . IF. . . THEN loop. 
Nested FOR loops are a source of 
slowness too, compare these two 
programs: — 
16 FOR A=1 TO 18 FOR B=1 TO 4 


29 
26 FOR B=1 TO 4 26 FOR A=1 TO 206 
3G LET X(A,B)=® 3@ LET X(A,B)=6 
48 NEXT B 46 NEXT A 
5@ NEXT A 58 NEXT B : 
The left hand program will execute 
25% slower than the right hand pro- 
gram. Why? In the left method the 
inner loop is set up 20 times. Setting 
up means that the computer has to 
store the start, stop and increment 
arameters. In the right method the 
oop has only to be set up 4 times. 


If possible, stick to integers as para- 
meters in a FOR loop. (The opposite 
of integers are reals. Integers are whole 
numbers that can be stored exactly; 
reals are numbers that may not store 
exactly — try converting 2.1 into 
binary). Most interpreters treat integers 
in a different way to real variables, 
and integer arithmetic is around 10% 
faster than real arithmetic. 


Another common fault is evaluating 
a constant inside the loop, when it 
could have been evaluated outside it. 
Example: 


19 FOR A=@TO 1LET X=3.145296 
9M STEP 10 25/180 

20 LET X=3.1452 26 FOR A=9 TO 98 
9625/1808 STEP 16 

30LETB=B+  3@LET B=B+ 
SIN (A*X) SIN (A*X) 

4@ NEXT A 4@ NEXT A 


The left hand program is poor pro- 

gramming as well as taking 15% longer. 
Here is an interesting program, 

the output achieved has tan varied 

depending on the interpreter used. 

10) LET A= 1 


20 FOR A= 1TO3* ASTEPA 

30 PRINT A; 

40 NEXT A 

What happens if we use as parameter 
for the loop the loop variable itself? 
Here are two outputs achieved with 


different interpreters: 123 and1248 
16 32 64 128 256 for ever. If when 
you run this 


pee you do not get 
the output 1 2 3 then the following is 
another way of speeding up your 
programs: 


19 LET B=6 16 LET B=6 
20 Le A=B TO 2@LET C=3*B 
STEP B/3 
38 statement 38 LET D=B/3 
49 NEXT A 4@ FOR A=B TO C 
STEP D 
5@ statement 
68 NEXT A 


The right hand program will execute 
faster, because the loop parameters 
will only have to be calculated once, 
at the beginning of the loop only. 

Apart from the last point made, 
all the previous points are universal 
and all interpreters that I have used 
benefit from the above methods of 
speeding up. 


Brackets 


Brackets make no difference to the 
speed at which a function is evaluated. 
LET X=((A + Be) is evaluated at 
the same speed as LET X = (A + BY)/C. 
So the moral is always use too many 
brackets rather than too few. An 
example of too few brackets is given 
here in finding a solution to the quad- 
ratic ax2 t+ bx tc=9. 
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LET X1=(—B + SQR (B*B — 4*A*C))/ 
2*A would give a wrong answer. 

LET X1 = as + SQR(B*B — 4*A*C))/ 
(2*A) is correct. 


Trigonometric 
Functions 


If you are evaluating more than one 

of the functions at the same time then 

it is worth using the following trig 

identities to evaluate the other: 

sin2x = 1 — cos2x 

cos2x = 1 — sin2x 

Tan x = sin x/cos x 

In a program if we evaluate sin x we 

can evaluate cos x and tan x from it: 

19 LET A=SIN(X) 18 LET A=SIN(X) 

26 LET B= 28 LET B=COS(X) 
RU — A*A 


SQR( 
308LETC=A/B © 3 LET C=TAB(X) 


The left-hand program should be faster 
than the right-hand program. 


Looking for the 
place to speed 
things up. 


The place to look is inside a loop. If 
the loop is traversed enough times a 
saving of 10% each time around can 
make an appreciable difference. If a 
statement is not inside a loop it is 
unlikely to be worthwhile altering it. 


Apple Owners 
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GRAPHICS. 


This picture was printed on a TRENDCOM 200 


printer using an Apple |! computer. 


The TRENDCOM 200 also prints 80 columns 
$590 + tax 


ASCII — upper and lower case. 


Testing your 
Computer] 
Interpreter’s 
speed 


It is possible, indeed it is a very good 
idea, and only needs to be done once, 
for the amateur to check and list the 
speed of execution of various routines 
and functions. The tests used for 
measuring are called ‘Benchmark tests’ 
and you will find a series of 8 such 
tests in APC Volume 1, Issue 1, page 
14. 


Benchmark tests are devised to find 
the speed and efficiency of a particular 
computer/interpreter; using them it is 
possible to time a particular routine, 
addition say. Here is a method for 
timing addition, but it can be extended 
to time multiplication, SQR, SIN, 
RND etc. 


19 PRINT’S’ 

26 FOR A= 1 TO 1904 
30 LET X=2 

49 NEXT A 

5 PRINT ‘E’ 

60 END 


Time this program using a stopwatch 


from the even of the ‘S’ to the 
prs of the ‘E’. Now replace the 
ine 30 LET X = 2 + A and retime 


the program. The difference in time 
is due to the 1000 additions performed 
in line 30, so divide the time difference 
by 1000 and you have the time for one 
addition. 


Replacing statement 30 with 30 LET 
X = 2*A or LET X = SQR(X) and you 
can time various functions. Make a note 
of the various speeds and you can 
modify your programs to work faster. 


One final word of warning, your 
efforts may only lead to a 10% saving 
in run-time but they could accumulate 
to something more worthwhile. 


Glossary 


1. An INTERPRETER is a program 
written in machine language, which 
translates a source program, written 
in a high-level ae e (BASIC, CO- 
BOL, ALGOL, ORTRAN) into a 
machine language program. Remem- 
ber that computers cannot under- 
stand any other language except their 
own machine language, and all other 
languages must be translated before 
they can be executed. 


2. SOFTWARE HOUSES are indepen- 
dent companies formed to provide 
computing services to clients. They 
offer many services, including pro- 
gram eee and hiring of com- 
puter time. Th 
ware packages. 


ey also provide soft- 


Also available from Computerware is the TRENDCOM 100 — a low cost thermal ASCII printer with 


upper and lower case and forty characters per line.... 


$390 + tax. 
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TRS-80 
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PET & 
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10 PART 
PASCAL 
SERIES 


THE COMPLETE 


PASCAL 


BY SUE EISENBACH AND CHRIS SADLER 


CHAPTER 2 FUNDAMENTALS: 
ACTION AND DATA 


The British Standards Institute 
(BSI) has produced a draft defini- 
tion for a _ standard PASCAL 
language which the American 
National Standard Institute (ANSI) 
and the International Standards 
Organisation (ISO) are currently 
examining. Everyone is working to 
avoid the sort of situation BASIC 
finds itself in where a large number 
of the statements for one machine 
either won’t execute or give total 
rubbish on another. 

Niklaus Wirth, author of 
PASCAL, was very firm on the 
idea of standardization, and we 
shall use his book PASCAL User 
Manual and Report (Kathleen 
Jensen and Niklaus Wirth, Springer- 
Verlag) as the ultimate reference 
work for this series. 

However, the team at_ the 
Institute for Information Systems 
at the University of California in 
San Diego, like most other com- 
piler writers, could not resist 
‘improving’ the language slightly 
for their version. Since this version 
is currently the most widely avail- 
able on personal computers, we 
shall be pointing out the occasional 
differences between ‘Wirth 
PASCAL’ and ‘UCSD PASCAL’ 
as they arise. 

In any case, until ISO and ANSI 
publish their final report, we don’t 
know which of these will be closer 
to the ultimate PASCAL. 

Every language (computer or 
human) has rules of grammar. 
However it is very difficult to 
achieve fluency just from a list of 


rules; examples bring individual - 


points to life. On the other hand 
an example cannot illustrate all 
the possible applications of a new 
rule. In this series we will present 
sample programs to _ illustrate 
points and then, more formally, 
provide the rules so that the new 
constructions can be used in a 
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variety of ways and checked for 
‘legality’. 


Format of a program 


A good programming language is 
one that can achieve an acceptable 
compromise between the following 
conflicting goals. First, it should 
provide the programmer. with 
sufficient flexibility to allow pro- 
grams to be written in a natural, 
logical way, and second, the pro- 
grams should havea highly predict- 
able structure so that the compiler 
(the program that translates the 
source program into a machine- 
code object program) can be fast 
and efficient. 

In some languages, each state- 
ment must appear on its own line. 
This is equivalent to saying that 
the statement separator is (CR) 
(LF) (i.e. the code transmitted 
when you press RETURN). This 
limits the maximum length of a 
statement to some fixed amount 
(usually 80 characters); it also 
makes a program with lots of short 
statements very stilted and space- 
wasting. In PASCAL the statement 
separator is a semi-colon which 
allows several short statements to 
be compressed onto one line, or 
a single statement to overflow 
onto several lines. Even so, the 
compiler can still rapidly sort out 


one statement from another 


It has become accepted that 
every language must include some 
means of documenting a program 
within the text itself. This provides 
the reader with additional explana- 
tions beyond the bare lines of 
essential code. In PASCAL the 
primary method of documentation 
comes about through the use of a 
very flexible naming convention. 
Every name (or identifier), whether 
it is the name of the program itself 
or that of one of the variables or 
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other elements within the program, 
can consist of an unlimited num- 
ber of characters. The only restric- 
tions are: 

1 that the identifier should not be 
a reserved word i.e. one of the 
instructions of the language, like 
WRITE etc. 

2 that the first character should be 
a letter followed by an unbroken 
string of alphanumeric characters. 
3 that only the first eight charac- 
ters are recognized by most com- 
pilers. Any additional characters 
will be there for the benefit of the 
reader, to explain the functions of 
the object being named. 


Thus line 1 of the program in Box 
1 has the form: 


PROGRAM EVENINGALL ; 
t t t 


reserved word identifier separator 


The identifier “EVENINGALL” 
gives some idea of what the pro- 
gram is about. The same approach 
should be adopted when naming 
variables, strings and all the other 
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program elements, although care 


concentrate their documentary 


should be exercised to ensure that 


efforts on the various identifiers 


the first eight characters are chosen and use correspondingly 
unique, for the sake of the fewer comments than they would 
compiler. For instance it would include _ in (say) BASIC or 
probably treat identifiers FORTRAN, which have more re- 
ACCOUNTSPAY ABLE and _ stricted naming conventions. 

ACCOUNTSRECEIV ABLE as The program in Box 1 illustrates 
being identical. the general format of a PASCAL 


The second method of docu- 
mentation is the comment. In 
PASCAL this consists of a string 
of explanatory text enclosed by 
the character pairs (x and x) as 
shown on line 5 in Box 1. (« You 
can use [ and ] if you can find 
them on your keyboard x). When 
the compiler encounters the left- 
hand delimiter, ‘‘(x’’, it ignores 
everything until the right hand 
delimiter, so that the message con- 
tained therein is for the human 
reader only. 

Good programmers always use 
a lot of documentation in their 
programs, whatever language they 
are writing in. However, in 
PASCAL they would probably 


program. The box is divided into 
three sections. Apart from the 
section containing the PASCAL 
code there is a section with line 
numbers down the left hand side. 


PROGRAM EVENINGALL ; 
BEGIN 
WRITE(‘HELLO’) ; 
WRITE(‘ ’, ‘HELLO HELLO’) ; 
WRITELN ; (*MOVES TO A NEW LINE*) , 
WRITELN(‘AND WHAT DO WE HAVE HERE?’) 
WRITELN(‘HELLO HELLO HELLO’) 
ND. 


1 
2 
3 
+ 
+) 
6 
7 
8} E 


HELLO HELLO HELLO 
AND WHAT DO WE HAVE HERE? 
HELLO HELLO HELLO 


OX 1 PROGRAM EVENINGALL 


These are not a part of the code 
but are used purely for reference 
purposes within the text. The 
section below contains a represen- 
tation of the sort of dialogue one 
would expect to see on a VDU or 
teletype, were this program to be 
executed. 

EVENINGALL consists of a 
program title (line 1), an action 
part (lines 2—8) and a terminator 
(the full stop on line 8). All pro- 
grams must close with a full stop 
as this is a message to the compiler 
to say that the end of the program 
has been reached. The actual 
executable part of the program 
stretches from line 3 to 7 and the 
results of execution appear on lines 
9 to 11. The instruction WRITE 
causes whatever follows it in 
brackets to be output. WRITELN 
will have the same effect except 
that (CR) (LF) are appended to the 
end of the text. If there is no text 
after a WRITELN, the type head 
is simply moved to the beginning 
of the next line. Thus lines 3 to 5 
in Box 1 have the same effect as 
line 7 (see lines 9 and 11). The 
brackets which enclose the output 
are ‘output delimiters’, while the 
single quotes surrounding each 
item are ‘string delimiters’. In line 
4 there are two output items 
separated by a comma. 

The structure of the program 
and various subsections are illus- 
trated, by means of syntax dia- 
grams, in Box 2. These syntax 
diagrams show what a program 
looks like, from the point of view 
of the compiler, and as such are 
worth taking a bit of trouble over. 
If one knows how the compiler 
will view a program, then code can 
always be written which will 
compile even though it may still 
misbehave when it executes. 7 

Look at the first diagram in 
Box 2. When the compiler encoun- 
ters the word PROGRAM (a 
reserved word), it looks for a ‘‘;’’. 
Anything between these is the 
identifier or program name (pro- 
vided it obeys the rules). Likewise, 
everything between the ‘‘;’’ and 
the ‘*.’’ is the action part which, 
looking at the second diagram, 
starts with the reserved word 
BEGIN and finishes with the 
reserved word END. Between 
these are statements, separated by 
‘*-°s and they are defined in the 
succeeding diagram. Check each 
statement from 3 to 7 in Box 1 
against the definition of a state- 
ment in Box 2 to ensure that each 


one is ‘legal’ — this is exactly what 


the compiler has to do. 

As this series proceeds, the 
elementary definitions will be 
expanded and enhanced to include 
all the PASCAL facilities. In the 
meantime, below are some rules 
for interpreting a syntax diagram. 
1 Symbols in circles are PASCAL 
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PROGRAM 
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ACTION PART 
Op EH 
Bee oe 


STATEMENT 


BOX 2 


punctuation marks — ie. separators, 
delimiters and terminators etc. 

2 Sausages contain either the re- 
served words (in capitals) or one 
of ‘letter’, ‘digit’ or ‘character’ — 
which includes anything on a key- 
board. 

3 Rectangles enclose names of ele- 
ments which are defined in other 
diagrams (eg. ‘action part’ in the 
first diagram is defined in the 
second). They can be considered 
therefore as symbols for other 
complete diagrams. 

In Box 3, two diagrams are pre- 
sented to complete the set of 
definitions begun in Box 2 and 
stated earlier in the text. 


6b es: S 


nae 
bear 


IDENTIFIER 


BOX 3 


Exercise 1: Draw syntax diagrams 
for a comment. 


Programs that do 
things 


Every part of PASCAL, each con- 
cept, method and programming 
trick, has its accompanying syntax 
diagram which, although perhaps 
acceptable for compilers, is rather 
heavy going for the potential 
PASCAL devotee. At the same 
time, nobody could be expected 
to stay satisfied with little Noddy- 
programs that simulate policemen. 
Therefore, pausing only to promise 
that in no future chapter will there 
be so many (or such complex) 
syntax diagrams, we proceed to 
develop more PASCAL features, 
widening the range of problems 
| with programmable solutions. 
Almost every program functions 
by obtaining some data (input), 
| manipulating or processing this 
data and presenting its results 
| (output). In PASCAL, this funct- 
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ional aspect of the program (the 
action part of the previous section) 
is separated from the more organi- 
sational task of deciding how the 
information is to be stored and 
used at each stage of the operation. 
These decisions must be made and 
announced in a ‘declaration part’ 
immediately before the action 
part is begun. 

In program PAY, Box 4, lines 
2 & 3 form the declaration part 
while lines 4 (ie. BEGIN) and on- 
wards constitute the action part. 
Looking first at the action part, 
lines 5 & 6, together with line 14, 
show how a dialogue can be con- 
structed within a program. WRITE 
outputs text but allows the re- 
sponse to be typed on the same 
line. READLN requires a (CR) to 
terminate the input. Finally, line 
11 is a typical assignment state- 
ment. The values of the variables 
HOURS, RATE and OVER- 
HOURS are arithmetically mani- 
pulated, together with the value 
1.5 (from OVER), to produce a 
numeric value which is assigned to 
the variable WAGE. The assign- 
ment operator ‘‘:=’’ is used to em- 
phasize that this activity occurs 
in the action part, and indicates 
that the contents of a memory 
location (referenced by WAGE) is 
to be altered. The final diagram in 
Box 6 defines all the new state- 
ments introduced in program PAY. 

Although the action part of this 
program must seem _ straight- 
forward for a BASIC programmer, 
the declaration part probably 
looks rather peculiar. At machine- 
code level, all data is represented 
by sequences of ones and zeroes at 
specific locations in memory. 
Higher level languages must provide 
a means of accessing and inter- 
preting this data in a more readable 
form — numbers and characters, 
arrays and words. Generally, 
memory locations are accessed by 
means of variable names (or identi- 
fiers) and some languages use 
restrictions in the naming conven- 
tion to help the compiler to inter- 
pret the data stored at the named 
location. So FORTRAN distin- 
guishes between names for REALS 


1 PROGRAM PAY ; 
2 CONST OVER=1.5 ; 
3 VAR HOURS, RATE, OVERHOURS, WAGE:REAL ; 
+ BEGIN 
5 WRITE((NORMAL HOURS WORKED?) ; 
6 READLN(HOURS) ; 
7 WRITE(‘RATE OF PAY? ’) ; 
8 READLN(RATE) ; 
9 WRITE((OVERTIME HOURS— TYPE @ IF NONE’ ) ; 
10 READLN(OVERHOURS) ; 
11 WAGE:=HOURS#RATE + OVER*RATE*OVERHOUBRS ; 
12 WRITE((WAGES=’ , WAGE, ‘DOLLARS’) 
13 END. 
14 NORMAL HOURS WORKED? 4@ 
pee RATE OF PAY? 4 


16 OVERTIME HOURS— TYPE @ IF NONE 3 


17 WAGES= 178 DOLLARS 


BOX 4 PROGRAM PAY 


and those used for INTEGERS, 


while BASIC has REALS and | 


STRINGS (of characters). 

These restrictions are inefficient 
in two ways — first, program read- 
ability is hindered and second, the 
programmer has to force his data 
into the rigid data types provided. 
Thus, in most versions of BASIC, 


a flag (taking values 1 or Q) which - 


need only occupy one bit will, in 
fact, occupy 32 bits in the guise of 
a REAL variable. In PASCAL, 
variable identifiers have no such 
restrictions so one function of the 
declaration part is to give the pro- 
grammer the opportunity to name 
variables and state what type they 
are. So Box 4, line 3 reads: 


Seg HOURS, RATE, OVERHOURS, WAGE: REAL 
t t 


reserved word identifiers type 


This enables the compiler to set 
up all the necesaary memory loca- 
tions at one go (before starting 
on the action part). Clearly this 
is more efficient than the alter- 
native, where memory allocation 
must occur in conjunction with 
other compilation activities. 
Moving from efficient compila- 
tion to efficient execution, another 
PASCAL feature, the declared 
constant, comes into its own. 
When a computer executes an 
arithmetic assignment, all the rele- 
vant numbers have to be extracted 
(via the variable identifiers) from 
memory. Because this activity uses 
a significant fraction of the execu- 
tion time required for the opera- 
tion, the facility exists to incorpor- 
ate actual values into an arithmetic 
statement. Hence PASCAL allows 
for the declaration of constants 


(line 2, Box 4). When the program | 


is compiled, every occurence of 
the specified identifier (OVER) is 
replaced by the value indicated 


(1.5). No location in memory is 
identi- 


associated with constant 
fiers. 

Constants can also be used in 
the more traditional way. For ex- 
ample line 11 in Box 4 could have 
‘1.5’ instead of ‘OVER’. But if 
union negotiations managed to 
push up overtime rates to double- 
time, someone (imagine a larger 


=_? 


RFAHRENHEIT : REAL ; 
BEGIN 


OONMOMNPwnNre 


READLN(CENTDEGREE) ; 


PROGRAM TEMPERATURECONVERSION ; 
CONST FREEZING=32 ; 
I 


VAR CENTDEGREE, IFAHRENHEIT : INTEGER ; 


WRITE(‘PLEASE TYPE IN A TEMPERATURE IN DEGREES CENTIGRADE:—’) ; 
RFAHRENHEIT :=CENTDEGREE*9/5 + FREEZING ; 


IFAHRENHEIT:=CENTDEGREE*9 DIV 5 + FREEZING ; 


WRITELN(LINE) ; 


WRITELN(CENTDEGREE, ‘ C =’, RFAHRENHEIT, ‘F OR APPROX’; 


IFAHRENHEIT, ‘ F’: 
WRITELN(LINE) 
END. 


PLEASE TYPE IN A TEMPERATURE IN DEGREES CENTIGRADE:—21 


BOX 5 PROGRAM TEMPERATURECONVERSION 


program with tax and NI calcula- 
tions, etc) would have to look 
through the entire program to 
adjust it. 
| The role of the declaration part 
is therefore to allocate memory 
locations and to assign constant 
values for use by the action part. 
The first three diagrams in Box 6 
cover the descriptions of the last 
few paragraphs. The third diagram 
in particular shows fhe exact for- 
mat of constant and _ variable 
declarations. In Box 8 the words 
‘constant identifier’ and ‘variable 
identifier’ occur. By these we 
mean a legal identifier that has 
been previously declared in a con- 
stant or variable declaration. 

TEMPERATURECONVERSION 
in Box 5 contains a wider range of 
data types. On line 3 there is an 
example of a string constant. This 
facility will be familiar to most 
programmers. In line 4 CENTDE- 
GREE and IFAHRENHEIT are 
declared as INTEGERS. This 
means that they can only take 
whole number values (and in 
machine terms take up less storage 
space than REALS). 

If the left hand side of an 
assignment statement is a variable 
of type INTEGER, then all terms 
on the right hand side must also 
be INTEGERS. When adding, 
subtracting and multiplying two 
integers, the result will always be 
an integer. However, when dividing 
two integers the result may be a 
real. PASCAL provides two divi- 
sion operators. ‘/’ (as in line 9, 
Box 5) is the division operator for 
reals and it always produces a real 
result. It can be used between 
integers but the result must be 
assigned to an identifier that has 
been declared as REAL. The 
operator DIV (as in line 10 in Box 
5) is used between two integers 
when an integer result is required. 
Any fractional part is chopped 
off (that is truncation rather than 
rounding occurs). So 11/4 gives 
2.75 while 11 DIV 4 gives 2. 

The syntax diagrams in Box 7 
and 8 deal with the fine points of 
PASCAL language grammar that 


ne SSO 


DECLARATION PART 


OHO 


FINAL DEFINITION OF A PROGRAM 


declaration 
part 


expression 


STATEMENT: ENHANCEMENT 1 


BOX 6 


have been illustrated in programs 
PAY and TEMPERATURECON- 
VERSION. Unfortunately the 
syntax diagrams fail to show that 
reals cannot be assigned to integers 
explicitly. 

Exercise 2: Write a program called 
PAYPACKET that (like PAY) asks 
for hours worked, rate of pay and 
overtime hours and which displays 
as well as the wage, the number of 
five dollar notes and one dollar 
notes required to make up the 
wage packet. Use integer rather 
than real variables and an overtime 
rate of 2. 


Refining a problem 


Look at the action part in Box 9. 
Is it possible that Niklaus Wirth 
would have incorporated instruc- 
tions for walking down a VDU 
screen? It’s highly unlikely so the 


question arises, how do the state- 
ments LEFTFOOT and RIGHT- 
FOOT produce the indicated out- 


put. 
eo 


OUTPUT 


es) 


EXPRESSION 


CONSTANT 


INTEGER 


variable 
identifier 


VARIABLE 


UNSIGNED NUMBER 


BOX 8 
PROGRAM WALKING ; 


DECLARATION PART 


BEGIN 
LEFTFOOT ; RIGHTFOOT ; 
LEFTFOOT ; RIGHTFOOT ; 
LEFFTFOOT 

END. 


TRAMP 
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PASCAL provides the facility 
to add new instructions for the 
duration of an individual program 
just as it allows for the introduc- 
tion of variables and constants. 
These new statements are in fact 
programs within a program and 
are called procedures (similar to 
subroutines in BASIC). 

Returning to WALKING, what 
would programs that produced the 
output required of LEFTFOOT 
and RIGHTFOOT look like? Box 
10 contains programs that produce 
appropriate output. These pro- 
grams are conceptually simpler 
than a single program that outputs 
TRAMPs down the screen. 

One of the advantages of using 
procedures is that the production 
of the main program is straight- 
forward: it will consist of proced- 
ure calls (using their descriptive 
names) whose execution will be as 
desired and whose details can be 
considered at another time. The 
production of the _ procedures 
themselves is not difficult because 
each one should accomplish only 
one task. (When the tasks get 
more complicated than 
WALKING, the number of times 
they are subdivided — called step- 
wise refinement — is increased. 
Refinement stops when there is 
little point in further subdivision. 

Looking at lines 2-14 in Box 10 
and the first syntax diagram in 
Box 11, it can be seen that a pro- 
cedure follows the same format 
as a program, with just two differ- 
ences: 

1 The title line is PROCEDURE 
identifier; rather than PROGRAM 
identifier ; 

2 There is no full stop at the end 
of a PROCEDURE since that is 
the signal to the compiler that the 
whole program is completed. 

Like any other identifier, before 
using a procedure identifier in the 
action part of a program it must 
be declared (see Box 11); that 
means giving a full listing of the 
associated code. 

Since procedures are very much 
like programs they too can have 
declaration parts (see Box 9 line 
9). And like whole programs, 
upon exit from a procedure, the 
items declared in it become avail- 
able, because their memory 
locations are released. Any identi- 
fier declared within a procedure 


PROCEDURE LEFTFOOT ; 
BEGIN 
WRITELN(‘TRAMP’) ; 
WRITELN ; 
WRITELN 
END ; (*LEFTFOOT* 
PROCEDURE RIGHTFOOT ; 
CONST SPACE=’ 3 
BEGIN 
WRITELN(SPACE, ‘TRAMP’) ; 
WRITELN ; 
WRITELN 
END.; (*RIGHTFOOT*) 


BOX 10 PROCEDURES 
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DECLARATION PART: ENHANCEMENT 1 


STATEMENT 
FROM BOX 6 
: procedure 4 

iden 


identifier 


STATEMENT: ENHANCEMENT 2 


BOX 11 


is said to be local to it. Identifiers 
in the declaration part of the main 
program are said to be global and 
can be used within any procedure. 
The one exception to this rule is 
that a procedure can only call 
another procedure if it has been 
previously defined. 


Exercise 3: Write a program called 
MARCHING that prints out twice: 


LEFT 
LEFT 
LEFT 
RIGHT 
LEFT 


This program should contain three 
procedures, called LEFT, RIGHT 
and QUICKSTEP. QUICKSTEP 
should call the other two proced- 
ures. 


Conclusion 


We have had to cover a lot of 
ground in this fundamental 
section. Although future chapters 
may be concerned with more 
sophisticated ideas, there will 
never again be the need to absorb 
so much new material. Drawing all 
the various lines together, there 
emerge three significant points: 
1 PASCAL is a language which 
gives flexibility to the programmer 
without interfering with the pre- 
dictable format required for an 
efficient compiler. 
2 The major means of achieving 
this in PASCAL is through the 
separation of a program into de- 
claration and action parts. 
3 Programmer control over the 
declaration part offers freedom of 
specification of both variable 
names and types as well as giving 
powerful operational procedures 
that enable the straightforward 
coding of (often repetitive) tasks. 
Anyone looking over the pro- 


gram examples would be forgiven 
for wondering — why all the fuss 
over PASCAL flexibility and 
structure? It is certainly true that 
small, simple programming tasks 
can be solved with fairly similar 
efficiency in any language. And 
each problem could have been 
solved with fewer lines of code, 
without constants, integers or pro- 
cedures to produce the given out- 
put — even in PASCAL. It’s in 
large programs that these features 
really come into their own. 

In our next chapter we will 
look at another method for coding 
repetitive tasks — loops and, as 
well, we shall expand the range of 
data types that can be used in a 
program. , 
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UCSD DEVIATION 

In UCSD PASCAL™ the 
screen is automatically cleared 
upon completion of execution. To 
keep the display visible make the 
last statement before the final 
END a READLN (which will wait 
for a (CR)). 


PASCAL 
PROGRAM 
BEGIN 
END 
WRITE 
WRITELN 
CONST 
VAR 
REAL. : 
INTEGER 
READLN 
DIV 
PROCEDURE 
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1 aloes Diagram for comment 
ine 

2 Pay program with wages in bank 
notes 

3 Marching 


INTERRUPT 


Interrupt is the place in APC where readers can unburden their grievances and air 
controversial views. New subjects are always welcome; the ‘right to reply’ shall be wielded 


Frogs onthe hop 


In line with United Nations and 
Western Europe, for Australia, a 
problem exists — high unemploy- 
ment and the consequent search 
for 1 temedy. —:-Phere’s -also- 4 
cominon ain . .. 10° Faise the 
status of the individual in society. 


The theory has been _ that 
machines can help to improve 
levels of unemployment and raise 
living standards. Now a_ report 
coming from France refutes this 
idea completely. In effect it says 
(and it is difficult to fault its con- 
clusions) that the spread of com- 
puterisation allied to teleproces- 
sing, data banks and so on, will 
not solve unemployment. In fact, 
it will increase it and at the same 
time devalue human skills and tight- 
en the grip of an all-powerful state 
machine over most sections of 
society. A danger also exists that 
computerisation could undermine 
the traditional sovereignity of 
nations. 

This sensational report — 
L’Information de la Societe — 
should not be seen as the work of 
a group of cranks. . . but of a com- 
mission set up by the French 
Government. Headed by M. Simon 
Nora, Inspector of Finance, the 
commission, being charged with 
the task of examining the effects 
in French Society of computeri- 
sation and teleprocessing, points 
out that in the 1960’s computers 
were expensive, had limited capa- 
bility and that 80% of France’s 
computer installations were in the 
hands of 250 firms. 

But, says the report, micro- 
processors have effected an 
enormous drop in computer prices 
with a multitude of small, 
efficient and reasonably priced 
machines now available on the 
market. We live, it goes on, in the 
era of mass data processing. Tend- 
ing to merge into one multi- 
purpose communications network, 
the fields of tele-communications 
and TV channels are now capable 
of linking computers to data 
banks and transmitting speech, 
pictures, sound and data. 

Quoting from a summary of the 
report: ‘“‘Types of services that 
until recently were in the realm of 
science fiction, are coming within 
our grasp. For instance, news- 
papers being transmitted directly 
to our homes, telecopying access 
to databanks simply by telephon- 


at the discretion of the Editor. 


ing electronic postal and TV 
services. 
‘Used in conjunction with 


satellites, the marriage of compu- 
ter and telecommunication tech- 
nology has produced remote data 
processing. It has become a 
dominant means of communica- 
tion — powerful, universal, soon 
accessible by low-cost aerials and 
capable of flooding vast areas. 
What’s more, the computer revolu- 
tion will upset a number of tradi- 
tional balances.”’ 

This means that the massive 
productivity that will come with 
data processing, particularly in 
services, should lead to a major 


cut-back in the number of 
employees. And, according to 
research estimates this could 


affect up to 30% of staff in banks 
and insurance companies in 10 
years time. Over a longer period 
of time, a similar trend will pro- 
bably cut back employment in 
social security, post office and 
secretarial work. 

Computerisation of administra- 
tion in manufacturing, particularly 
in the car industry, will mean that 
firms will be able to expand pro- 
duction without increasing 
possibly even decreasing — their 
labour force. And the commission 
concludes that the French Govern- 
ment’s seventh plan’s ambition to 
create 1,300,000 jobs may well be 
put at risk by the effects of in- 
creasing computerisation. What 
may happen in France can equally 
take place in_ other highly 
industrialised countries. 

Then again, what is going to be 
the effect on the individual of 
computerisation? Will it create a 
robotisised sub-proletariat, as 
human skills are devalued by all- 
powerful ‘‘know-alls’’ or will tele- 
processing, like electricity, flood 
into all aspects of social life, 
shaking up the nervous systems 
of society as a whole. 

No attempt to give categorical 
answers to these questions was 
contained in the French Govern- 
ment’s report, a document which 
many may regard as being pessi- 
mistic. It does, however, contain 
the evidence on which these 
questions can be based and does 
not, in any way, attempt to brush 
them under the carpet. Moreover, 
is there likely to be a threat to 
the traditional sovereignity of 
states over their telecommunica- 
tion systems? After all, direct 
transmission satellites — linked to 


databanks — will soon be opera- 
ting regardless of national bound- 
aries. Equally, is there a parallel 
danger to national security in the 
field of defence? 


M. Simon Nora, and _ other 
members of the commission 
envisage a world in which the 
treatment of illness would rest 
with general practitioners, or per- 
haps even just medical auxiliaries. 
They would supplant the special- 
ists whose knowledge _ the 
computer databank would make 
available to all. In education, the 
status of the teacher is seen as 
being changed profoundly by 
teaching aids. . . and many other 
professions and trades would be 
affected in the same way. 

The question is — will civilisa- 
tion be revolutionised by data 
processing and the new  tele- 
communication technology and, 
if so, for better or for worse? 
Melville Hawthorn 


Micro mania 


There is a sequence in the film of 
‘Hair’ when a couple of mounted 
police, complete with clubs and 
helmets, come upon a group of 
hippies dancing in a park. For a 
moment, it looks as if the police 
are going to attack — then the 
horses begin to dance, forwards, 
backwards and sideways to the 
music. 

I want to draw an analogy 
between those dancing horses and 
computers. The film sequence is 
meaningless. At most, it raises an 
ironic laugh, because we know the 
horses wouldn’t' really have 
danced. We know the _ police 
would have dispersed the dancers. 
But the film, in its facile way, 
seems to be saying “Hey — you 
know — if it could only be like 
that — with a little love — wow 
man!’’ But it won’t be like that, it 
isn’t like that; and love can’t make 
police horses dance. 

We think of personal computers 
as liberating us in some sense. 
People talk about the information 
technology revolution, of comput- 
ing-power to the people, of the 


new scope the individual will 
have to. .. well, to compute, at 
least. 


But it isn’t like that, it won’t 
be like that; computers can’t make 
police horses dance either. Nor will 
they make nasty people nice, poor 
people rich or starving people 
well-fed. 
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Yet we say ‘“‘Hey — you know 
— if it could only be like that — 
with everyone programming — 
wow man!”’ 

Computers, whether they act 
as straightforward tools or as 
advanced, ‘artificially intelligent’ 
decision makers, cannot of them- 
selves change political, social or 
economic relations in this coun- 
try. You think they can? With 
Startrek, Mastermind and noughts- 
and-crosses? With balance sheets, 
mortgage packages and, for God’s 
sake, chicken recipes? Oh, I see — 
we haven’t really begun yet. Please 
— when will it start? When Wool- 
worths sell pocket computers with 
sound, graphics etc.? Can you 
imagine what these machines will 
do? How they will be presented 
and sold? Or will it be when even 
‘poor’ people can afford a compu- 
ter — so they can see how their 
shares are doing? 

If you point to individual cases 
where computers have helped, for 
example, handicapped people, I 
must still enquire how this is going 
to be revolutionary in any way. 
Further, I might ask whether spin- 
off from, say, Russian defence 
research, even if perhaps it helps 
crippled people, necessarily and 
sufficiently justifies that research. 

I believe that in many ways 
the shape of personal computing 
has already been defined. It is to 
do with leisure, with exercising 


COMPUCOLOR II 


the mind, with money and with 
retreating from most of the world 
to a small space in between the 
screen and our eyes, and then pre- 
tending that space is ever so 
important and significant. 

The trouble is, as well, that we 
inevitably incorporate the tools 
we use into our model or ‘internal 
representation’ of the world. Thus 
we run the risk of beginning to 
see the world in terms which are 
increasingly ‘to do with’ compu- 
ters. We may even alter our lives 
to fit the demands of the compu- 
ter, becoming, for instance, the 
‘compulsive programmers’ that 
others have already warned about. 

Worse, we may start to model 
the world using the computer, 
kidding ourselves we _ actually 
simulate parts of it, including 
people; these models will then 
affect our perception, which 
affects the next model, which 
affects. ..and so on. 

How else, even in these ‘early’ 
days, can’ we explain the unutter- 
ably boring ‘computer art’, that 
might as well be done with a 
Spirograph or pen and ruler, but 
which is exhibited for all the 


world as if it were at the frontiers 
of creativity? Or the fact that 
virtually all available software is 
either business programs or games: 
the former just glorified pen and 
paper, the latter rapidly becoming 
irritating, 


as superficial and 


MICRO COMPUTER 
from $1970 tax paid 


though perhaps as addictive, as a 
slot machine. 

The games are even advertised 
for these attributes! ‘‘Absolutely 
addictive’’ says the catalogue; 
“Yes, boring old hangman’’, 
admits the advert. 

Addicted, bored, dehumanised, 
unable to think of much to justify 
the hundreds or even thousands 
we spent on the machine, we fly 
like moths to every new software 


candle to bask in the light. . . 
for a time, anyway. And will 
that be revolutionary? How about 
when your computer is obsolete? 
Just buy the latest wonder? will 
that make us free and powerful 
and able to. -you know. .. 
control things? 

Oh yes, I have a computer. I 
play games and make ‘art’. I hope 
to be contributing a_ regular 
column about anything that I can 
justify as being a ‘valid’ use of 
computers in the arts. 

But I keep having a sneaking 
suspicion, as the winking cursor 
beckons me across the room, that 
the best thing one can do with 
one’s 32K, all-singing, all-dancing, 
micro-processor-based delight, is 
to drop it from a great height onto 
the head of someone who’s on 
their way out to get one — and 
that could be quite a few people, 
if Ido my job right. 

Brian R. Smith 
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AND THEN THERE WERE TWO 


Chess Master, David Levy, continues his series of articles on the principles behind playing computer games 
with a study of the added difficulties involved in introducing a second player. 


Two-~person games 


Two-Person games, such as chess, back- 
gammon and draughts, are usually 
more interesting and challenging than 
one-person games, and it is to these 
that we shall be devoting most of our 
studies. The introduction of a second 
player creates manifold difficulties that 
do not exist in a one-person game, but 
fortunately for today’s  program- 
mers these difficulties have been exten- 
sively analyzed in the computing 
literature and the problems are now 
rather well understood. 


The two-person game 
tree 


Game trees become more complex 
structures when an opponent appears 
on the scene. Let us consider a relative- 
ly simple game, noughts and crosses 
(tic-tac-toe to our American cousins), 
and examine how its tree will look 
after a move or two of look-ahead. 
We shall assume that “cross” moves 
first. 

From the initial position there are 
three essentially different moves: 
1) e (the centre) 

2) a,c,g and i (the corners) 

3) b,d,f and h (middle of the edges) 

On the first move, any of group (2) is 
equivalent to any other, since all four 
moves are merely reflections or rota- 
tions of each other. Similarly, within 
group (3) all moves are equivalent. 
This technique of utilizing symmetry 
to reduce the magnitude of the problem 
is well worthwhile when programming 
a game that lends itself to a symmetri- 
cal analysis. By reducing the number of 
moves that need to be examined at 
any point in the tree you will be cutting 
execution time dramatically, because 


the combinatorial effects of tree growth 
are enormous. The savings in time that 
can be achieved through using symme- 
try can be extremely valuable when 
improving the performance of the 
program by making its evaluation func- 
tion more sophisticated (and slower). 

If we so decide, our program can 
terminate its search of the tree after 
looking at each of its possible moves 
from the root. This is called a 1-ply 
search because the program only looks 
one “ply” deep. (The term “‘ply” is 
used to denote a single move by one 
player.) In order to decide which 
move to make, out of m;, m, and 
m3, the program will then apply its 
evaluation function to the three posi- 
tions at the lower end of the tree (these 


are called the terminal positions). 
Whichever position had the best score 
would then be assumed to be the most 
desirable position for the program, and 
the program would make the move lead- 
ing to that position. 

How should we set about designing 
our evaluation function? This is one of 
the fundamental problems in game play- 
ing programming because a good evalua- 
tion function will help the program to 
make good judgements, aid hence to 
play well, even though the depth of 
look-ahead may be shallow. A _ poor 
function, on the other hand, might well 
result in poor play even with a deep and 
time consuming search of the game 
tree. It is therefore very much worth- 
while putting some careful thought 


program’s turn 
to move i 
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Figure 1 
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into the design of the evaluation func- 
tion, and the following example should 
illustrate the type of thinking that is 
necessary 

The object of the game is to create 
a row of three of your own symbols. 
We shall call this a “3-row’’. The next 
most important thing is to prevent your 
opponent from making a 3-row, which 
means that he should not have a 2-row 
after you move (a 2-row has two 
symbols of one player and one empty 
space). Next most important is the 
creation of your own 2-rows; then it is 
important not to leave your opponent 
with 1-rows (one of his symbols and two 
empty spaces); and finally you should 
try to create-your own 1-rows. All of 
these features could well be incorpora- 
ted into a noughts and crosses evalua- 
tion function. 

If we denote the number of cross’ 
3-rows by c3, the number of nought’s 
2-rows by n,, the number of cross’ 
2-rows by c,, the number of nought’s 
l-rows by n,;, and the number of cross’ 
l-rows by c,. . . then one measure 
of the merit of a position from cross’ 
point of view would be: 


Cz-- TP Co Ty TC) 


but this measure has one obvious 
drawback. It does not allow for the 
fact that the term c3 is more impor- 
tant than n,, which is more important 
than c,, and so on. This can be done 
by multiplying each of the terms in 
the evaluation function by some 
numerical weighting, in such a way that 
the weightings (hopefully) reflect the 
relative importance of each feature. 
The evaluation function then becomes 
(K3 xX C3) - (Ky’ x nz) + (Ky X Cp) - 

(k,' x nj) + (ki xc, 

where k3, k,’, ko, ‘ky? and k, are the 
numerical weightings. Since one c3 is 
worth more than all the n,s in the 
world, i.e. a winning row is more impor- 
tant than any number of 2-rows, we can 
set k3 to be some arbitrarily high 
number, say 128. By studying the game 


PROGRAM TO MOVE 


% Po 


mM; 


OPPONENT 
TO MOVE : 
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for a few minutes it is possible to see 
that if one side has a 3-row, the other 
side may have at most two 2. rows, SO 
to reflect the relative importance of 
one’s own 3-rows and enemy 2-rows 
it is necessary to ensure that k3> 
2 x k,’. We can therefore try k,’ = 63. 
(If one side has a 3-row and his 
opponent two 2-rows, the opponent 
will not have any 1-rows to upset this 
scoring mechanism). 

If there are no 3-rows, but one side 
only has a 2-row, his opponent cannot 
have more than three 1-rows, as in the 
following situation. 


O 
X 
X 


So k, ’>2x k, and k,>2xk,’ 

and we can try k, = 31, k,’ = 15 and 
k, = 7. Remember that we can modify 
these values in the light of experience 
with the program, the values 128, 63, 
31, 15 and 7 are merely our first 
estimates. Having made these estimates 
we should then ensure that the score 
for a noughts and crosses position will 
never cause an overflow, and we do this 
by setting up positions which will have 
the largest and smallest possible scores, 
and counting the number of 3-rows etc. 
in each. This is a very important part 
of evaluation function design, and I 
remember a chess programmer who 
could not understand why his program 
crashed whenever it was winning or 
losing by a great margin — he had for- 
gotten to allow for the possibility of 
one side being two queens ahead and 
when that happened his evaluation cal- 
culations created an overflow. 

If we now return to figure 1 we can 
see that each of the three possible 
first moves results in the creation of a 
different number of 1-rows. Applying 


O 


~-. 
= 


M2 


P,(S2 ) 
M34. M3... 3 4 
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Figure 2 


the evaluation function. 


128 xc3 -63xn, + 31x c2 
TX Cy 


to the three positions P,, P, and P3 we 
find that in each case c3 =n, =cz =n, =0, 
and therefore: 

S, = 128x0-63x0+31x0-15x0+7x4= 28 
S, =128x0-63x0+31x0-15x0+7x3=21 
S3 = 128x0-63x0+31x0-15x0+7x2=14 
and S, is the most desirable of these 
scores so the program would make the 
move m, to reach position P, (i.e. it 
would play in the centre). 


The 2~-ply search 


The 1-ply search is the simplest form 
of tree search in a two-person game, 
but it does not take into account the 
fact that once the program has made 
its move there is an opponent wait- 
ing to reply. It may be the case that a 
move which, superficially, looks strong, 
is seen to be an error when we look a 
little bit further into what may 
happen. The 2-ply search will “see” 
more than the 1-ply search and so 
moves made on the basis of a 2-ply 
search will be more accurate (provided 
that the evaluation function is not 
a disaster area). How can we take into 
account this extra dimension of the 
opponent’s move? 

Let us look at the same tree, grown 
one ply deeper, i.e. to a total depth 
of two ply — one move by the program 
and one move by its opponent. : 
If “cross” plays in the centre, “nought” 
has two essentially different replies, in 
a corner or on the middle of an edge 
(represented by positions Pi , and 
P,. respectively). If ‘cross’ makes 
his first move in a corner (P,), 

“nought”’ will have fee different aad 
moves (m2; M2 4 ss 
leading to positions 1s Ba P, as oh 
and P,;° After “‘cross”’ plays ee: m3, 
“nought” again has five replies. It is 
easy to see how the tree grows. In last 
month’s example, the 8-puzzle, the 
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branching factor (number of branches 
from each position on the tree) was 
never more than three. Here it is more, 
even allowing for symmetry. 

Let us consider how the program 
might analyze the situation. It uses 
its evaluation function to assign scores 
to the terminal nodes P,, and P;>. 
In each case ¢c3=n,=c,=0. In position 
P.1:C; = 3 and n, = 2. In position 

12, €,; =3 and n, = 1. 

We now have: 

5,1 ~¢-15 x 2)+(7 x 3) =-9 

Si2 =(-15 x 1)+(7 x 3) =6 

This information indicates that if the 
program is sitting in position P,, with 
its opponent to move, its opponent 
may choose between moves m, , (lead- 
ing to position P,, of value -9) and 
m,2 (leading to position P,, of value 
6). The program’s opponent wants to 
minimize the score and so it would 
choose move m, ,, forascore of -9, and 
so the real value of position P, , repre- 
— by S,, is this backed-up score of 


If we apply the evaluation function 
to positions P,,. . . P25 we will get: 
S,; = (-15 x 3) + (7x 2) =-31 
S.> = (-15 x 2) + (7x 2) = -16 
S355 4515 = 2) + (1 x 2) =-16 
So4 = (-15 x 1)+ (7x 2)=-l 
S,5 = (-15x 2)+ (7x 3)=-9 
Wishing to minimize the score when 
making its move from P,, the program’s 
opponent would choose move m;, 
leading to position P,, and a score of 
-31 


Similarly, when applying the evalua- 


tion function to positions P3,... P35, 
we get: 

S31 = -38 

$32 = -8 

533 ay -31 

$34 = -16 

$35 = -23 


so the program’s opponent, when 
making its move from P3, would choose 
move m3, fora score of -38. 

We now have the following situation. 
If the program makes move m,, its 
opponent, with best play, can achieve 
a score of -9. If the program plays m, 
then its opponent can achieve a score of 
-31. If the program plays m3 then its 
opponent can score -38. 

Just as the program’s opponent wish- 
es to minimize the score, so the program 
wishes to minimize the score. The pro- 
gram must now choose between m, (for 
-9), m, (for -31) and m3 (for -38). 
Since the maximum of these three 
values is -9, the program will play move 
m,, and the backed-up score at the root 
of the tree will be -9. This represents 
the score that will be achieved with 
best play from both sides. 

This procedure of choosing the maxi- 
mum of the minimums. . . etc. is 
known, not surprisingly, as the mini- 
max method of tree searching. It is an 
algorithm that finds the move which 
will be best, assuming correct play for 
both sides, provided that the evaluation 
function is reasonably accurate. 


Memory requirements 
for a minimax search 


One of the great advantages of the mini- 
max type of search is that it is not 
necessary to retain the whole tree in 


memory. In fact it is necessary to keep 
only one position at each level of look 
ahead, together with a certain amount 
of information about the moves from 
each of these positions. Let us see how 
this works for our 2-ply tree. 

From the initial position Po, the 
program generates the first move for 
cross, to position P,;. Before proceed- 
ing to the other moves that cross can 
make, the program generates the first 
reply move by nought, m,,, reaches 
position P,, and assigns it the score 
Si1 (-9). This is the first terminal 
node to be evaluated, so the score of 
-9 represents the best score found so 
far and this is the score that is assign- 
ed to S,. Since P; is the first move 
at 1-ply to be examined, this score of 
-9 also represents the best score found 
so far at the 1-level, and this is the 
score assigned to So 

The program now looks at P,2, 
which we sometimes refer to as the 
brother of P,,; (and P, is father to 
both of them). The’ program deter- 
mines the score S,; 2, compares this 
value (6) with the best score found so 
far at this level (-9) and finds the -9 
preferable, so the scores S; and So 
need not be adjusted at this stage. The 
program next looks for a brother to 
P,,, but finding none it goes back up 
the tree. and looks for a brother to P,, 
which leads it to position P, and 
then to P,,;. On the way down this 
part of the tree the program assigns to 
P, a score of -9, since this is the best 
that can be achieved so far. When 
looking at P,, the program finds a 
score of -31, which is better for the 
program’s opponent than -9 and so 5S, 
is now set to -31. 

Note that as this process continues, 
the brother nodes that have been 
examined in the past no longer serve 
any useful purpose and so they can 
be discarded. At the present point 


in our search we no longer need the 
brother of P, that has already been 
examined (P,), so P; and its successor 
nodes are not kept in the tree at this 
time. The tree, at this moment, compri- 
ses only Py, P, and P,,. 

Having evaluated P,; we throw it 
away and look at P, , which has a 
score of -16. The program’s opponent 
would not prefer this to the -31 
already discovered, and so no change 
is made to S,. The program discards 
P,, and replaces it with P,3 for a 
score of -16, also of no value to the 
program’s opponent, and this is replaced 
in turn with P,, and P,, which also 
produce no change in S,. 

Since S, (-31) is less attractive for 
the program than the best score found 
so far (-9 at Sq), the score at P, is not 
backed-up. P, itself is discarded to 
make way for P3, and the same process 
continues, with the program looking 
in turn at the scores of P3,. .. P3,; 


Task for the month 


The evaluation function for noughts 
and crosses which we have been using 
in this example has five features. Try 
to devise evaluation functions with as 
few features as possible, for playing 
noughts and crosses with (a) a 2-ply 
search; and (b) a 3-ply search, and 
test your functions by writing a pro- 
gram to play the game using a mini- 
max search. The fact that deeper 
search will sometimes compensate 
for a less powerful evaluation func- 
tion may make it possible for you to 
reduce the number of features while 
still writing a program that can play 
perfectly. If you complete this task, 
or even if you do not, you might 
like to think of a way to make the 
search much faster. This will be the 
subject of next month’s article. 


MW 


Good heavens a floppy disc! 
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Files 
A collection of related 
records treated as a unit. 


Firmware 

Software that is permanently 
stored in hardware, such as an 
interpreter in-ROM. 


Flags 

Bits which provide information 
about specific aspects of an 
operation performed by the 
CPU, such as whether the 
result is positive or negative. 


Floppy Disc Unit 

Similar to ‘Disc Memory 
Unit’ but utilizing flexible 
rather than hard discs. The 
unit is also characterized by 
having a slower mode of 
operation and reduced 
memory capacity as com- 
pared to a hard disc system. 


Flow Chart 

A graphic representation of 
the more important steps of 
work in a process, using 
symbols such as rectangles 
and circles to denote key 
classes of operations. The 
emphasis is on where and by 
whom work is done rather 
than on howit is done. A 
flow chart normally forms 
part of any systems analysis 
preparatory to the design of 
a computer program. 


FORTRAN — FORmula 
TRANslation 

A long-established computer 
programming language, 
particularly designed for 
scientific applications. As 
with other programming 
languages, various dialects 
evolve after a few years: 
thus FORTRAN IV and 
FORTRAN 77 may be found. 


Front Panel 

The collection of switches 
and indicators (or the place 
where they are located) 
whereby the operator may 
control acomputer. In many 
modern machines the 


BUZZWORDS 


G 


Graphics 

The use, particularly on a 
computer’s display screen, 
of graphs, bar charts and 
other designs in place of or 
in addition to the usual 
alphanumeric character set. 


Hard Copy 

Refers to the printed output 
of a computer as opposed to, 
forexample, output appearing 
on a VDU or from a voice 
synthesizer. 


Hardware 

A term applied to the physical 
parts of acomputer. To be 
distinguished from software. 


Handshake 

An exchange of signals 
between a computer and a 
peripheral device which 
establishes synchronisation 
for transmission of data. 


High Level Language 

A program coding system 
orientated towards the 
programmer rather than the 
computer. High level lang- 
uages tend to save programm- 
ing time at the expense of 
less efficient use of hardware 
and slower processing. An 
interpreter or compiler is 
required to translate each 
high level instruction into 
machine language (usually 
more than one machine 
instruction is generated from 
each high level instruction). 


Examples of popular high 
level languages are BASIC, 


FORTRAN and COBOL. 


I/O-Input/Output 

Refers to the transfer of data 
between a computer and 
peripheral devices. 


I/O Ports 

The physical devices which 
provide electrical access to a 
computer by external devices 
for the transmission of data. 


IC 

A miniaturized electronic 
circuit formed from a piece 
of semiconductor and housed 
in a nonconducting, heat 
dissipating package. 


Immediate Address 

In this mode, the instruction 
itself contains the operand 
rather than the operand 
being stored in a separate 
memory location. This form 
of addressing is typically used 
in operations requiring the 
operand to be a constant. 


Indexed Addressing 

The memory location to be 
addressed is pointed to by the 
sum of the contents of an 
index register and the last 
byte of the instruction. 


Indirect Addressing 
Addressing a memory 
location which contains the 
address of data rather than 
the data itself. 


Interrupt 

The temporary suspension of 
the execution of a program 
following detection of a 
specified condition, for 
example: the lack of paper 
in a printer. 


J 


Justify 


K 


Keyboard 

A group of buttons arranged 
in a manner similar to that of 
a typewritter and used to 
input alphanumeric charact- 
ers to a computer. 


Keypad 

A keyboard with a smaller 
number of buttons typically 
used on calculators or as an 
additional input device for 
microcomputers. It usually 
comprises numeric charact- 
ers and, in the case of 
calculators, instruction keys 
such as add and divide. 


Keyword 

1. A group of characters 
which identifies an item or 
record for data retrieval. 

2. A secret combination of 
characters which identifies 
an authorised user to a 
computer. 

3. A group of characters 
which indicates the main 
function of a program line 
in a high level language. 


L 


Labels 

One or more characters used 
to identify the location of an 
instruction (when line 
numbers are not used) within 
a program. The process of 
compiling such a program 
will replace each label with an 
absolute address. 


Library 

A collection of programs and 
routines written for a part- 
icular computer, minicom- 
puter or microcomputer. 


Load Instruction 

An instruction which, when 
executed, will transfer 
operand data from memory 
to a CPU register or from one 
CPU register to another. In 
some computers, it also 
applies to a transfer of data 
from a CPU register to 
memory. 


LSI—Large Scale Integration 
The fabrication on a small 


High Level Programming 
Programming a computer 
using a high level language 
instead of the complicated 
machine language level. 


functions formerly served by 
separate rows of lights and 
switches have now been 
incorporated in the normal 
keyboard and display. 


To arrange printed (or type- 
written) words so that the 
right-hand margin of each 
line is vertically below that 
of the preceeding line. 


piece of crystalline silicon of 
a circuit embodying large 
numbers of semiconductor 
devices (normally between 
100 and 10,000). 
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MS Microsoftware 


TAPE 1 LEVEL 2 


Mortgage calculations, Dow Jones Industrial, cash flow, inventory- 
change, California income tax, journal ledger (8K), loan amort- 
ization, perpetual calendar, bio rythm, payroll, diet planning, speed 
reading, touch typing, sales receiptally, decision maker, mail 
addressing, straight depreciation, double-declining depreciation, and 
revolving charge account. : 

Also, math problems, queen, Star Trek |, number guessing, 
wheel of fortune, World War || bomber, rock-scissors-paper, seek, 
Star Trek Il, Red Baron, mini-Trek, strategy, pilot, battleship. 
“On A Snowy Evening’, Mastermind, tic-tac-toe, grand prix auto 
race, capitals, etch sketch, hangman. 


TAPE 2 LEVEL 2 


Fully documented in Some Common Basic Programs by Lon Poole 
& Mary Borchers: 


Investment, future value regular deposits; regular withdrawals, 
initial minimum (for withdrawals); nominal interest, effective & 
earned-interest; depreciation rate, amount depreciation; salvage 
value; discount commercial paper; loan principal, regular and last 
payment, remaining balance, term-loan; mortgage amortization; 
greatest common denom. - integer prime factors; polygon area; 
triangle parts; analysis, operations two vectors; radian-degree., 
degree-radian conversion; co-ordinate, polar equation, functions 
plot; linear, curvilinear interpolation; Simpson's & trapezoidal rules, 
Gaussian quadrature integration; derivative. 

Side 2 — quadratic equation, polynominal (Newton) & half 
inteval-search roots; trig, polynominal; simultaneous equations; 
linear programming; matrix addition, subtraction; scalar multip- 
lication, inversion; permutations & combinations; Mann-Whitney U 
test: mean, variance, standard deviation; geometric mean & 
deviation: binomial, Poisson normal, Chi-square distribution; 
Chi-sq., student's 7 distribution test; F-distribution; linear 
correlation coefficient; linear, multiple-linear, Nth order, geometric, 
exponential regression; system reliability; future projections; Federal 
withholding taxes: tax depreciation schedule: check writer; recipe 
cost; map check; day of week; days between two dates; anglo to 
metric; alphabetize. 


TAPE 4LEVEL 1 


Election returns, business percentage, ups and downs of business, 
index, inventory control, sales receipt tally, gas mileage, driving 
distance, mixed monthly sales report, payroll, annual earnings, 
speech recording aid, and double-declining depreciation. 

Also, math problems, cash register, chase, snoopy, commander- 
in-chief, Christmas graphic, air raid, balance scale, stock market, 
tic-tac-toe and On A Snowy Evening. 


TAPE 5 LEVEL 2 


Memory test, mortgage payments, tension breaker, lineprinter- 
screen & vice-versa utilites, Federal income tax, election returns, 
business percentage, vacation planner, car pool (disk), diet planning 
2, mailing list (disk) and first aid. 

Also spelling bee, Star Trek 3, mind bender, tachistoscope, 
chase, common factor, klingon capture, spelling practice, Hamurabi, 
animals, Snoopy, cryptogram, starship, ants, Yesterday, and Pilot 
(disk). Pilot is the language of computer-aided instruction (CAI). 


TAPE 7 LEVEL 2 


Disassembler, Pilot, roster, dropout, memory loader, memory sort, 
inventory control, graph, land surveying, mixed monthly sales 
report, shopping list, diet planning 3, loan progress chart, hex- 
decimal conversion. 

Also Star Trek 4, states and capitals, battleships 2, spelling 
practice 2, number guessing, hangman 2, snark, slot machine, cipher, 
target, surround, adder, termites, lunar lander, multiplication 
exercise, five-in-a-row, Bastem, and write. A number after a 
program indicates there are other similar People’s Software 
programs. Pilot is the same as the disk pilot on tape 5, except runs 
on 16K tape systems. 


Each Tape $9.90 (incl. postage within Australia) 


Please mail your order to: 


MS Microsoftware, 
P.O. Box 119, Essendon, Victoria, 3040. 


LEISURE LINES 


Well, you've had a 
month’s recuperation period 
since the last issue, so lI 


hope you’re all fit and 


fresh and ready for June’s 
edition of Leisure Lines. 
First of all it’s time ‘for a 
‘quickie’ . that means 
no answers, no prizes. 


Three men in a restaurant. 
The bill came to $30, 
so each man gave a $10 
note to the waiter. The 
waiter took the bill and 
delivered the payment to 


the manager — who de- 
cided he’d overcharged. He 
gave the waiter $5 to 
return to the men. On 
the way back to the table 
the waiter dishonestly pock- 
eted $2 of the $5 for him- 
self, and therefore he gave 
$1 back to each of the 
men. That means that each 
man had paid $9 — making 
a total of $27. The waiter 


had taken $2, the men had 
ee $27. . . that comes to 

29. What happened to the 
missing $1? 


So much for the 


tkid's 
stuff, time now for this 
month’s prize puzzle. 

Place 8 coins on the squares 


of a standard chess board 
so that no two coins are in 
line pene teny, vertically 
or diagonally. In addition, 
no coin may occupy a 
square on either main dia- 
gonal of the board. In other 
words, only the unshaded 
square in the diagram shown 
may be used. Solutions 
(includin ee addressed 
to: (Puzzle No. 2). 


Australian Personal Com- 
pict =F: O-: Box. 115, 
Carlton, Victoria, 3053. 


Once again, please remem- 
ber to write clearly and 
include your name and 
address. Entries should ar- 
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rive not later than June 
30th, 1980. The winner 
will be notified by post 
and the result, plus sol- 
ution, will be published 
in our next-but-one edition 
of APC. The Editor reserves 
the right to make final 
decisions on all matters — 
no correspondence will be 
entered into. 


PRIZE 

After last month’s gluttony 
with the chocolate bars, 
what better way to follow 
than with food for the 
mind? Yes, our ‘Silly (?) 
Prize’ for the June issue 


is an unabridged version 
of the Concise Oxford Dic- 
tionary. It contains all the 
dirty words (bar two) that 
were used in “Lady Chatter- 
ley’s Lover’! 
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C.1.S.A. 
159 KENT STREET, SYDNEY 


The One-stop Microcomputer Shop Providing 
a Total Service to TRS-80* and System 80 Users. 


(TRS-80 is a registered Trademark of Tandy Radio-Shack) 


HARDWARE AND MODIFICATIONS 


Having system crashes? 
Plug in our line filter and get main-frame stability  $ 


Use your TRS-80 as a telephone book and automatic 
dialler. No hardware mods required. All 
software included 


LIGHT PEN with demonstration software and full 
programming instructions.STILL ONLY 

Lower case mod for ELECTRIC PENCIL and 
SCRIPSIT. Fitted and 90 day guarantee 


VIDEO STABILIZER CRYSTAL. Get professional 
stability on your VDU. CRYSTAL only 
Fitted and guaranteed 


16K MEMORY KITS 
We install 


RS-232 PRINTER DRIVER. Operates from cassette 
cable. Including software $ 


CISA DATA DIGITIZER. Our most popular 
hardware product. No hardware mods required. 
Reads and re-records tapes normally unreadable 
by any other method 


CASSETTE CABINET. Protect vour valuable 
cassettes in this strong, handsome 36 cassette 
cabinet 


DIGITAL CASSETTES — Top quality 


C15’s_ 1 — $1.65 
C20’s_ 1 — $1.85 
C30’s_ 1 — $1.99 


This is an entirely new product. We are so 
confident of this product that we are now 
recording all our commercial software on it. 


5%” PRIME QUALITY DISKETTES 
1 — $4.95 
All tracks guaranteed to load 


10 —$14.85 
10 — $16.85 
10 — $18.50 


10 — $45.00 


We are extending our range of computer paper and labels 
for the enthusiast and the business user. 


LATE SPECIAL! 


EXATRON STRINGY FLOPPIES............ 
77 Track Micropolis Drives complete with DOS. .. . .P. 


BOOKS 


We believe that we have the best and most comprehensive 
range of titles of interest to the TRS-80 owner/user. Over 
200 titles presently in stock. COME IN AND BROWSE 
AROUND! 


JUST A SELECTION 

First Book of Microcomputers 

Pascal with Style 

Basic with Style 

TRS-80 Disk and Other Mysteries 

Level II ROM Reference Manual 

Basic and the Personal Computer 

(highly recommended) 

Basic Programming for Scientists and Engineers. . 
The Intredible Secret Money Machine 

Z-80 Microcomputer Handbook 

Microcomputers for Business Applications 

Z-80 and 8080 Assembly Language Programming. . . 
How to Profit from your Personal Computer 
Little Book of Basic Style 

Microcomputer Interfacing 

Microcomputers and the 3 R’s 

(A Guide for Teachers) 


COMPUTER CLASSICS 

Wirth/Algorithms + Data Structures = Programs . 
Tausworth/Standardized Development of Computer 
Software 

Vol. I — Methods 

Vol. II — Standards 

Klingman/Microprocessor Systems Design 
Gilmour/Business Systems Handbook 
Gane/Structured Systems Analysis 

Garrett/Analog Systems for Microprocessors 
Rhyne/Fundamentals of Digital Systems Design . . 


TRS-80 AND SYSTEM 80 SOFTWARE 


Ecology Simulations 1 and 2 (disk and lower case) 
each 

Mission Impossible and Voodoo Castle (disk) 
Adventureland and Pirate Adventure (disk) 
Investment Analysis (disk or L2 cassette) 

Sargon II (cassette) 

Strategy Games (5) (cassette) 

Space Games (4) (cassette) 


5 Adventures (cassette) each 
Advanced Statistics (disk or cassette) 
U Boat (cassette) 

Basic Monitor (cassette) 
Micromazing (games cassette) 

RPN Calculator (cassette) 

PLUS MANY MORE 


We stock and highly recommend all RACET COMPUTES 
professional standard system programs. 


49.95 
29.95 
24.95 


Remodel + Proload 34.95 


; 24.95 
DOSORT (sorts disk files) 
COPSYS (copies system tapes) 


34.95 
34.95 


NEW DOS FROM APPARAT 


35 Track 
40 Track $110.00 


This DOS emulates many mainframe capabilities. Has 
features usually restricted to much larger systems. 


TARANTO and ASSOCIATES 
General Ledger 

Accounts Payable 

Accounts Receivable 

Print Invoice 

Complete Business System 


This is professional quality software and really provides a 
superb business system for the TRS-80. Software main- 
tenance is available to purchasers of the complete system 
at $15 per hour, to tailor the programs to your specific 
needs. 


PLUS MANY MORE 


We are the Australian agents for many first class U.S. soft- 
ware houses. Send for our full catalogue. 


Remember, for all your TRS-80 and System 80 needs, phone, 
write or call 


TRADE ENQUIRIES INVITED 


Showroom: 

Ground Floor, GIO Building, 159 Kent Street, Sydney 2000 
(opposite IBM Building) 

Phone: (02) 241 1813 


We regularly conduct a series of evening periods of small 
group tuition from 7.30 p.m. onwards in BASIC with 
specific emphasis on commercial applications. 

These sessions are conducted in a friendly and helpful 
atmosphere and are designed to give you a complete 
mastery of BASIC techniques up to and including all 
aspects of disc I/O and file handling. 

We will teach you tricks even Tandy don’t know about! 
All stationery and workbooks are provided. Textbooks 
available at an extra charge. 

Fee for 10 periods (up to 3 hourseach)....... $150.00 
Special private or group tuition on any aspect of BASIC 
or commercial/business applications of microcomputers 
available on request. , 

Tuition includes assignment work if required — and 
assessment. 

A certificate of competence is awarded on successful 
completion of a tuition series. 
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REMEMBER — for all your TRS-80 needs — phone, 
write or call 


159 KENT STREET, 
SYDNEY 2000 
(opposite IBM building) 
Phone: (02) 241 1813 


CISA 


We are currently preparing a correspondence course for 
out-of-town TRS-80 users. Details will be available shortly. 


We carry the full range of MICRO-80 newsletters and 
recorded software plus a range of popular micro- 
computing journals. 


If the idea of a book, a fairly hefty 
volume too, containing nothing but a 
million “random” numbers! seems 
absurd to you then so should the idea 
of your computer or pocket calculator 
producing random digits, e.g., 1 to 6, 
for your computer games. The whole 
idea of randomness seems to be against 
the act of filling a book with random 
numbers. The fact that one could look 
at the same page more than once to 
find out what was coming wipes out the 
usual element of surprise that the word 
random contains! It is perhaps less 
obvious that computer generated 
random numbers are just as repeatable 
— and hence expected. In fact some 
applications demand that a sequence of 
random numbers is repeatable. Where 
does all this madness take us? In short, 


what is random about “random” 
numbers? 

Randomness 

V: 
Pseudo-randomness 


We all have a clear idea about random- 
ness. The flip of a coin. The fall of 
a dice. These events are random. Their 
outcome is not predictable and not 
repeatable (at will). If we wanted to 
build an electronic dice into a com- 
puter, to enable us to play games say, 
then a direct solution would be to take 
some electronic device which behaved 
randomly, for example, the output of 
a Zener diode or a saline cell. We could 
use the device to determine the state 
of a memory location in our computer 
and bingo! we have our random number 
generator. This is the way ERNIE, 
your friendly premium bond selecting 
machine works. This is a very good 
technique for generating random 
numbers that nobody can even guess at 


— it is the lack of repeatability which is 
important here. However, even though 
fair and right for the job, machines such 
as ERNIE are very expensive things to 
construct well and for a lot of applic- 
ations a much simpler solution will do. 

Let us think about the properties we 
would like a computer-simulated dice 
to have. 

1) Each digit should come up, on 
average, as often as any other. 

2) By observing which digits have come 
up already it should not be possible 
to predict the next digit. 

Condition one concerns the fairness 
of the dice and condition two concerns 
the independence of consecutive throws. 
Fairness is not a difficult condition to 
satisfy. It is the second condition which 
causes all the problems. First, we should 
notice that there is nothing in our two 
conditions which says that these digits 
should be produced randomly in the 
sense of coin tossing. I could have a list 
of numbers in which every number 
occurred about equally often and in 
which knowledge of any set of numbers 
would not help me to guess the next. 
These would satisfy our conditions and 
if I read them from the list one after 
the other you could not tell if I was 
tossing a dice or reading a list. Such 
numbers are called pseudo-random 
numbers because they are not produced 
by a random mechanism and because 
they are, in principle, repeatable. 

The requirement of not being able to 
predict the next random number in the 
sequence, given knowledge of the rest, 
is a problem because, if the numbers are 


generated by a non-random method, 


i.e. they are repeatable, then there must 
exist a method of predicting them! (This 
is, of course, using another copy of the 
program or list which gave rise to them 
in the first place). So it seems that we 
cannot meet the second requirement. 


RANDOM 
WRITINGS 


By Michael James 


On closer examination it is obvious that 
we are asking too much of our random 
numbers — all we need is that they are 
not predictable in the circumstances 
that we are using them in. For example, 
if the method of prediction is either 
too obscure to be deduced or too diffi- 
cult to be used by a human then our 
random numbers are O.K. for game 
playing on a computer. (For most 
applications we usually settle for 
successive numbers being uncorrelated 
with one another). 


Generating 
Random Numbers 


One of the first computer (pseudo) 
random number generators, the mid- 
square method, was suggested by Von 
Neumann in 1951. It is easy to use but 
generates fairly low quality random 
numbers — it has a tendency to produce 
numbers like OOXY and XYOO period- 
ically, but it is easy to understand: 

1) Specify the number of digits to be 
generated — say four. 2) Choose any 
starting value — 5069. 3) Square the 
starting value — 25694761. 4) The 
next random number is in the middle 
four digits — 6947. 5) Steps 3 and 4 
are repeated with the new random 
number. 

A short BASIC program for the mid- 
square method is given below and the 
reader might have some fun experi- 
menting with it. 


Mid-square 


10 INPUT “STARTING VALUE”, A 
20 L=LENI(STR$(A)) 

30 P= 10+ (INT(L/2)) 

40 Q=10tL 

50 A=INT(A*A/P) 

60 A=A-—INT(A/Q)*Q 

70 PRINT A 

80 GOTO50 
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The most popular type of random 
number generator in use today is the 
so-called congruential generator. It is 
not as easy to understand as the mid- 
square method but it does give high 
quality numbers with known _ prop- 
erties. A typical generator is given 
below as a BASIC program. (This 
particular generator is also of historic 
interest as it was first used on ENIAC). 


Congruential 

10 INPUT “STARTING VALUE”,A 

20 A= A*23 

30 A = A — INT(A/100000001) 
*100000001 

40 U = A/100000001 

50 PRINT A,U 

60 GO TO 20 


The general congruential generator 
works by multiplying the old random 
number by a constant and then express- 
ing it modulo some other constant to 
get the new random number, i.e. 


An+1 . [An K| mod P 


Expressing a number modulo P is 
simply done by finding the remainder 
after dividing by P. In our example 
K = 23 and P = 100000001. A further 
refinement is to divide A, by P to give 
a random number between 0 and 1 (U 
is our example). Congruential generators 
repeat themselves eventually but this 
can take a long time and depends on 
the choice of K,P and A,. (Our example 
can generate 5,882,352 numbers before 
repeating). Constructing a very good 
congruential generator is difficult, but 
our example will do for most applic- 
ations. 


Monte Carlo 


Random numbers can be used to solve 
some types of mathematical problems 
as well as in computer game playing. 
For example, suppose we are about to 
design a garage and we want to decide 
how many petrol pumps to install. 
Too many and some will stand idle and 
we could have saved our capital. Too 
few and we will lose customers as the 
queues get longer. Putting this another 
way, what we need to know is the 
average length of the queue for various 
numbers of pumps. The answer to this 
problem depends on the number of 
customers per second and the time it 
_takes to serve them. It is not easy to get 
the answer by the usual mathematical 
methods. 

A method of solving the problem is 
to simulate it using a random number 
generator. By writing a program in 
which customers arrived and were 
served with the right probabilities, we 
could obtain answers simply by running 
the program and keeping a count of 
the number of customers served and 
turned away. 

The collection of methods based on 
using random numbers to solve mathem- 
atical problems is generally called the 
Monte Carlo method. The previous 
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simulation example is easy to under- 
stand and the role of the random 
numbers is obvious. However, random 
numbers can be used to solve problems 
which seem to have nothing to do with 
randomness. 

For example, suppose we wish to 


evaluate 
S, 1 
e = . 


In other words, find the area below the 
graph of x2 in the interval 0 to 1 (Fig.1). 
We could use the usual methods of 
numerical integration, i.e. Simpson’s 
Rule, or even solve the problem directly 
by x2 = 1/3 x3. But suppose we instead 
generate two random numbers U, and 
U, which define a point in the unit 
square, i.e. they are both positive and 
less than one (see Fig. 1). If U; and Up 
are evenly distributed then the probabil- 
ity of the random point being below 
the curve is exactly equal to the area 
beneath the curve... Thus if we generate 
N random points, the area under the 
curve is estimated by the probability 
H/N where H is the number of points 
below the curve. A BASIC program 
to carry out this method for x2 is 
given below. 


1.0 


x? dx 


Fig. 1 

Integration program 
10 H=0 

20: N'=0 


30 DEF FNA (X) = X*X 

40 U1=RND 

50 U2=RND 

60 IF U2 <FNA(U1) THENH=H +1 

70 N=N+#+1 

80 PRINT “AREA ESTIMATE =", 
H/N, “N=":N 

90 GOTO40 


It is easy to find any one-dimensional 
integral over 0-1 by changing the 
function (FNA) statement. A quick 
look at the program shows that the 
method is simple when compared with 
other methods. However, a little 
experimentation will soon reveal its 
disadvantage — you have to do a lot of 
work to get a reasonable answer. For 
example, at N = 200 the estimate was 
0.435 and even at 1000 it was only 
0.361. (The correct value is 0.333). 
This would seem to make Monte Carlo 
integration of little use, but with a few 
improvements it is one of the best 


techniques we have for high-dimensional 
integrals. It is rarely used for one- 
dimensional integrations, i.e. finding 
areas, but it is nearly always preferred 
for two-dimensional cases, i.e. finding 
volumes. 

There are other examples of turning 
a non-random problem into a random 
one and then solving by simulation but 
the reader is referred to the suggested 
reading at the end of this article for 
more details. 


Testing Random 
Number Generators 


Whenever you use a random number 
generator you should always satisfy 
yourself that it is good enough for your 
purpose. This can be done either by 
statistical tests or, for the least exacting 
work, simply by examining a histogram 
of the output. 

For game playing most random 
number generators are good enough. 
For the various Monte Carlo techniques 
it is advisable to conduct statistical 
tests before relying on the results. 
(Details of these tests can be found in 
the further reading). I have tested a 
number of random number generators 
supplied with various versions of BASIC 
and found them all reasonable — none 
of them have been as bad as the mid- 
square method! One annoying feature 
of some BASIC random number gener- 
ators is their randomisation. By start- 
ing the generator off with a new starting 
value, obtained from some arbitrary 
memory location, we lose the repeat- 
ability of pseudo-random numbers. 
This is excellent for game playing — 
otherwise you'd play the same game 
every time — but for Monte Carlo 
methods this is a nuisance. It is imposs- 
ible to say how good such a randomised 
generator is because its properties 
depend on the starting value used. 


Conclusion 


Random numbers play an important 
part in the personal computer revol- 
ution. For game playing the random 
number generator supplied with BASIC 
(or some other high-level language) is 
usually good enough. Monte Carlo 
simulation techniques increase the use- 
fulness of random numbers but also 
require better generators. A good 
Monte Carlo simulation is simple, 
effective and can be fun — after all a 
computer game is usually nothing more 
than a Monte Carlo simulation of some 
“real” game. 
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VICTORIA 

Catering for the SORD 
M100 series users of Mel- 
bourne, S.M.U.G. meets at 
60 Winmalee Drive, Glen 
Waverley on the second 
Saturday of the month at 
2 pm. Although fairl 
call (membership of 35), 
this highly active group 
concentrates on maintaining 
a large range of user gener- 
ated software for the SORD 
M100, which is free to its 
members. 

Other projects include 
the development of an en- 
tire disc system which will 
be CP/M compatible, as 
well as D.O.S. compatible 
with the present range of 
SORD specific languages. If 
you are interested, contact 
Mr Robin Miller, 60 Win- 
malee Drive, Glen Waverley, 
3150. 


AUSOM (Apple Users’ 
Society of Melbourne) is 
open to any Apple owner 
residing in Victoria, with 
the sole condition being 
that the user must not only 
be interested in business. 
The group’s aim is to 
offer a forum’ through 
which Apple users may 
communicate and _ obtain 
any necessary software and 
documentation. 


The membership is curr- 
ently 20 and rapidly increas- 
ing; the annual fee being 
$10.00. AUSOM _ usually 
meets every third Saturday 
of the month at the AMRA 
hall, Wills Street, Glen Iris, 


USER GROUPS INDEX 


Recently APC circularised clubs and user groups — 


in fact, all the addresses we were able to find. 


Surprisingly, many proved long defunct, and indeed, 
a few claimed never to have existed in the first place! 


The list published here is correct as of going to press... 

though obviously incomplete. 

If YOUR group hasn't been included then you can help 

us make amends by posting all relevant information to: 
User Group Index, 

APC. P.O teeth. Carlton, 3053: 


Updates on alterations would also be appreciated. 


(opposite the Glen Iris sta- 
tion), at 3.30 p.m. Prospec- 
tive members should cont- 
act Computerland Melb- 
ourne and ask for the Pres- 
ident, Mr David Turk. 


A large group in Melbourne 
has recently been renamed 
as the Sorcerer Computer 
Users (Australia). Its ob- 
jective is to promote the 
interests of Sorcerer owners. 
A monthly newsletter is 
published containing articles 
submitted by members, incl- 
uding program listings and 
handy hints. Subscriptions 
are $12.00. 

The group meets each first 
Sunday of the month at 2 
p.m. at the corner of Bark- 
ers Road and Elphin Grove, 
Hawthorn in the Swinburne 


Community Junior School 
Hall. Current membership 
is 225. Further details may 
be obtained from the Sec- 
retary, S.C.U.A. PO Box 
144, Doncaster, 3108. 


The newly inaugurated 
Compucolor Users’ Grou 
of Melbourne meets at 7.3 
p.m. on the first Tuesda 
of the month at 212 High 
Street, Windsor. The group 
plans to establish some sort 
of software exchange service 
for its members. An edu- 
cation course on assembler 
language for the 8080 
microprocessor is being or- 
ganised — it will probably 
run for three meetings, 


commencing in July. For 
more information _ please 
contact Mr. L. Ferguson, 
12 Morphett Avenue, Ascot 
Vale. 


The Geelong Computer 
Club was established 18 
months ago to allow com- 
munication between people 
with microcomputer inter- 
ests. The group' meets 
monthly (except January) 
on the second Thursday 
at 730 pan, ~The usual 
venue is the premises of 
Tybar Engineering, Hamp- 
ton Street, Newtown,Gee- 
long. 

Guest speakers, demonstr- 
ations or tours are arranged 
for the monthly meetings. 
As the club is sponsored by 
a local company, subscrip- 
tion fees have not been 
necessary. There are thirty 


active members, with a 
special subgroup devoted 
to the TRS-80. Prospective 


members should contact Mr. 
Peter McKeon, PO Box 93, 
Geelong, Victoria, 3220. 


A as is currently 
being formed to cater for 
Melbourne’s Pet _ users. 
Further details next month. 


NEW SOUTH WALES 

The Commodore Computer 
Users’ Association has reg- 
ular meetings every fourt 
Wednesday at Room 3, 9th 
Floor, the Teachers’ Fed- 
eration, 300 Sussex Street, 
Sydney at 8 p.m. A guest 
speaker lectures on a topic 


of interest at each meeting. 
The group’s membership 
is aupLomals 50. 

he Compucolor Users’ 
Group of Sydney meets on 
the first Tuesday of the 
month at 91 Regent Street, 
Chippendale. The meetings 
begin informally at 6 p.m., 
giving members the oppor- 
tunity for private conver- 
sation, with the official 
start being at 7 p.m. Like 
their Melbourne counter- 
parts, this club has only 
recently formed. They 
intend to present guest 
speakers at some meetings 
and generally help their 
members to gain the most 
from their Compucolors. 
Current membership is 14. 
For more details contact 
Mr Andrew MacIntosh, C/- 
Regent Street, Chippendale. 


QUEENSLAND 

The IREE Microcomputer 
Interest Group of Brisbane 
meets every second Friday 
of the month. The meetings 
commence at 7.30 p.m. at 
the T.A.F.E. building, Old 
South Brisbane Town Hall, 
comer Vulture and Graham 
Streets, South Brisbane. The 
club membership is curr- 
ently 100, and visitors are 
always welcome. 

At each meeting, a lecture 
and demonstration covering 
an. area of - jnferest. to 
members are given. Several 
times a year, the group 
publishes a newsletter which 
details the topics to be 
discussed at forthcoming 
meetings and gives infor- 
mation concerning the local 
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hardware and software re- 
tailers. In conjunction with 
T.A.F.E., courses have been 
arranged to assist those 
interested in microcom- 
uters. More details from 
r N. Wilson, PO Box 81, 
Albion, Queensland, 4010. 


An ambitious club has 

been formed in Queens- 
land — The Brisbane Youth 
Computer Group. Its aim 
is to allow students to gain 
experience with computers. 
A Software Exchange Ser- 
vice is currently being es- 
tablished to operate free 
for members. The group is 
keen for new members and 
contributors to their Ex- 
change Service. 
The President is interested 
to hear from anyone willing 
to form a similar group 
in other cities or states, 
eventually to form a nat- 
ional group. Mr A. Harris- 
on, PO Box 396, Sunny- 
bank, Queensland 4109, 
should be contacted for 
more information. 


SOUTH AUSTRALIA 

An opportunity for TRS-80 
owners and users to meet 
informally and discuss ideas 
and oie is offered by 
the TRS-80 Users’ Group 
of Adelaide. The club meets 
on the first Thursday of 
each month (except 
January) at 7.30 p.m. (AI- 
oe officially approved 
by Tandy, the group re- 
mains independent). 

No fee is charged and the 
roup does not have a 
ibrary or newsletter. How- 
ever, a member speaks on 
a subject requested each 
month, and then general 
discussion and private talk is 
encouraged between mem- 
bers. The organisers feel 
that this informal structure 
of meetings is very success- 
ful. Further information, in- 
cluding meeting venues, can 
be obtained from Mr. G. 
Stevenson of 36 Sturt 


‘Street, Adelaide, 5000. 


s 


A.C.T. 

MICSIG was founded by 
members of the Canberra 
branch of the A.C.S., but 
is not confined to A.CS. 
members. Meetings are held 
at 7.30 p.m. on the second 
Tuesday of the month, 
and are advertised in the 
“Canberra Times’ on the 
preceding Saturday. The an- 
nual subscription fee is $10, 
with a half-rate concession 
for full-time students and 
pensioners. Further infor- 
mation is available from 
The Registrar, MICSIG, C/— 
PO Box 446, Canberra City, 
ACT 2601. 


NEW ZEALAND 

The Wellington Microcom- 
uting Society Inc. was 
ormed in mid 1977 with 
the aim of providing a 
means of communication 
and interchange of ideas 
between members. The 
membership of 60 includes 
people from a wide range 
of microcomputing areas 


and levels. The fee is $10.00, 
which is reduced to $5.00 
for those joining in the 
latter half of the year or 
who reside out of the 
area. 

The club priviledges include 
the option of borrowing a 
TRS-80 or D2 kit as well 
as books from hardware 
and software libraries; 
accessability to PROM pro- 
grammers; an on-going con- 
structional course building 
an extended M6802 system; 
and free advertising in their 
newsletter to buy, sell or 
swap within the club. 


Meetings are held on the 
second Tuesday of each 
month (excluding December 
and January) at the Victoria 
University of Wellington, 
Lecture Block 2, between 
7.30: and. 40.30. p.m. the 
format is formal business, 
general discussion and then 
a guest speaker; visitors 
are welcome. Further de- 
tails may be obtained from 
Lindsay Williams, 2 Pope 
Street, Plimmerton, New 
Zealand. 
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AFC introduces the first of a series of reference sheets with, this month, the 8080 instruction set. We plan to give you 
similar charts with the op-codes for all the common processors. Other areas we shall cover are standard codes — 
ASCII, EBCDIC, BAUDOT etc, hardware interface standards and protocols and anything else which lends itself to this format. 


_ Compiled by John A. Coll. 


MSB = 
<r  e e ee 
0 |NOP MOV |MOV |MOV |MOV /ADD |[SUB|ANA [ORAIRNZ |RNC 0 
BB |DB |HB |MB |B B46 B 
1 |~xI  |/LXI /LXI |LxXI/MOV [MOV |MOV |MOV [ADD |SUB/ANA |ORA|POP [POP |POP |POP [1 
B D H PRC ADO (He-imMc: fe Eee rs C18 D H PSW 
9 |STAX |STAX!SHLD |[STA|MOV [MOV |MOV [MOV |ADD |[SUB|[ANA [ORAI|JNZ |[JNC |JPO |JP D 

B D BD |DD |HD |MD |D BD D 
3 EINX. “TINK. [INK . | INX OV [MOV |MOV |ADD |SUB/ANA |ORA|JMP [OUT | XTHL 3 
B D H SP HE |M.E |E eee E 
4  |INR |INR |INR  |INR MOV [ADD |SUB/ANA |ORA|CNZ [CNC [cpo [CP |[4 
B D H M MH |H He H 
5 IDCR |DCR |DCR |DCRIMOV |MOV | MOV |MOV |ADD |SUB/ANA |ORA/PUSH|PUSH |PUSH/PUSH|5 
B D H M1BE ADE fie Nee ‘Pame 7s aa D H PSW 
6 |MVI.|MVI |MvVI. |MVIIMOV [MOV |MOV |HALT|ADD |SUB/ANA /[ORA/ADI [SUI ANI [ORI [6 
B D H M IBM |DM |HM M M IM M 
7  (RLC |RAL [DAA [STC V MOV |MOV [ADD |SUB|ANA |ORA/RST [RST [RST |RST |7 
ID, HA |M,A |A ACTA A 10 10H |20H | 30H 
8 v [MOV [MOV [ADC |[SBB/XRA |CMP[RZ [RC RPE [RM [8 
CB IER LB ABB BS B 
9 pee ae DAD |DADIMOV |MOV MOV [ADC |[SBB|XRA |CMP/RET PCHL | SPHL |9 
B D H SP fee ee ACte eo 1c C 
A |LDAX |LDAX|LHLD |I.DA|MOV |MOV MOV |ADC [SBB|XRA [CMP/JZ [JC JPE [JM [A 
B D cD |ED AD “AD D |D D 
B  |Dcx |DCX |DCX |DCX|MOV |MOV Vv [MOV [ADC |SBB|XRA |CMP IN XCHG/EI [B 
B D H SP ICE |EE AE |E aes 5 E 
C {INR [INR [INR |INR [MOV [MOV MOV [ADC |SBB|XRA |CMP!ICZ [CC CPE [CM |[C 
C E L A--1G.H: (EH ULA- +AH 1B BiH H 
D |DCR |DCR |DCR |[DCRIMOV |MOV MOV |ADC |SBB|XRA |CMP/CALL D 
C E L AO TB AT oe i AG i 
E  |MVI._|MVI |MVI_ |MVI|MOV |MOV |MOV [MOV |ADC |SBB|XRA |CMPIACI [SBI XRI [CPI |[E 
GC E 2 A |CM |EM |LM |AM |M M IM M 
F |RRC |RAR |CMA  |CMCIMOV |MOV |MOV |MOV [ADC |SBB|XRA |CMP|RST |RST |RST |RST [F 
Ck SB ATE A TAA Aa ASetg 18H |28H |38H 
0 pe ae ope eee Pe Ge eee oA [Boe Oe ee 
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IN STORE 


Name of 
Machine 


Apple II 
plus 


Century 


Challenger IP 


Challenger 4 


Compucolor 
II 


Cromemco 
System 2, 
System Z2H, 
System 3 


Exidy 
Sorcerer 
Model II 


AUSTRALIA’S MOST UP-TO-DATE BUYER’S GUIDE 
FOR MICROCOMPUTERS 


Month by month, every effort will be made to keep 
In Store up-to-date and accurate. 
And that means APC will always be happy to hear from its readers 
of any errors, and additions that seem worthy of inclusion. 


LIST OF ABBREVIATIONS 
A -- Assembler K/B — Keyboard 
A/D — Analog to Digital M/A — Macroassembler 
B/W — Black and White N/A — Not Available 
C — Cassette N/P — Numeric Pad 
cps — Characters per second O/S — Operating System 
Doc — Documentation PyP: -— Parallel Port 
E — Extensive RAM — Random Access Memory 
Ed -— Editor ROM — Read Only Memory 
Ex  — Extended res — Resolution 
F/D — Floppy Disc S — Software 
H — Hardware- -- . S/P. — Serial Port 
J — Introductory T/E — Text Editor 
I/O — Input / Output U — Utility 
int — Interface VDU — Video Display Unit 


All prices shown are exclusive of sales tax, except where indicated by an asterix. 
Software items listed in /ta/ics are not included in the basic price of the equipment. 


Price Comments 


Main Hardware Software Doc 
Distributor 
& Phone No 


16-48K RAM: 6502: colour 
VDU int.: 81/0 slots: 

games paddles: option 5%” 
F/D (116K) and 11 MB disc 


C100, 48-64K RAM: Z80: 
12” NDU2e55- FID 
(2x143K): 112 cps printer: 
RS232 port: $100 bus: 
C200 includes 2xF/D 
(2x315K): hard disc: 
4xRS232: 2xP/P 
4-32K RAM: 6502: C int: 
24x32 VDU int: RS232 
port: option — dual 5%” 
F/D (140K) 
8-48K RAM: 6502: colour 
| 32x64 VDU int: RS232 
port: P/P: option — 6502C 
microprocessor; dual 5%4” 
F/D (140K) 


~ Anderson 8-32K RAM: 8086: 13”, 
Digital 32x64 8 colour VDU: 
Equipment single 5%”’ F/D (51K): 
(03) 543 2077 | RS232 port 

64-512K RAM: Z80A: 

System 2, dual 5%” F/D 

(346K): System Z2H, 

also Winchester disc 

(11MB): System 3, 8” 

dual 1MB: S/P: P/P 


O/S: BASIC: 
Pascal: games 


Computerland 
(03) 62 5581 
(02) 29 3753 


280x192 high res colour 
graphics: Applesoft 
BASIC in 12K ROM 


Abacus Also available C300. 
Computer 
Store 


(03) 429 $844 


COBOL: 
FORTRAN: 
BASIC 


O/S: BASIC: A: 
games 


Systems 
Automation 
(02) 439 6477 


8K microsoft BASIC in 
ROM: expansion board 
available 


Systems BASIC: Pascal 
Automation 


(02) 439 6477 


$871 BASIC in 8K ROM 


ExBASIC(ROM):A 


manual available 


$2095 16K model, $2395: 32K 
$2695: maintenance 


CDOS: BASIC: 
COBOL: FORTRAN: 
M/A: ExBASIC: 
Structured BASIC 


All Systems expandable to 
multi user (2-7 users) 
$2880—$8825 


8-48K RAM: Z80: 
30x64 VDU int.: 
RS232 Port::P/P: 
S100 bus:extra C int. 


Dick Smith 
Electronics 
(02)888 3200 


O/S: ExBASIC 
(ROM): M/DOS: 
CP/M 


16K version $1395*: 
32K version $1525*: 
48K version $1655*: User 
programmable character set 


High res graphics capability: 


APC 47 
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Name of 
Machine aa 


HP-85 


IPS-100 


Microengine 


North Star 
Horizon 


Pet 2001 


Sord M100 
ACE III 


Sord M223 


TRS-80 
Level 1 


TRS-80 
Level 2 


Vector 
Graphics 
System B 


Versatile 4 


Acorn 


Aim 65 


SBC100 


Superboard 


IN STORE 


Main Hardware Software Doc) Price omments 
Distributor 
& Phone No 


S |$3550 |Full dot matrix graphics: 


16-32K RAM: N/A: 
N/P: compact portable unit 


5”, 16x32 B/W VDU: 
C(200K): 64 cps 

printer: RS232 port: 
4x P/P 


Hewlett 
Packard 
Australia 

(03)89 6351 


Microprocessor |32-896K RAM: 8085: O/S: Ex BASIC: $3750 
Applications 2 RS232 ports: $100 Ed: A: CP/M: 
(03) 754 5108 | bus: dual 5%” F/D CBASIC: FORTRAN: 
(630K) COBOL 
Daneva Control |64K RAM: MCP 1600: BASIC: Pascal: File |E | $2995 Also available as board 
(03)598 9207 |2 x RS232 ports: Manager: U 
‘Mbatas 2xP/P: Options — dual 


54%,” F/D (Single or dble 


Computer 

Sere: for density); 8” F/D (single 
complete or dble density) 

system 

(03) 429 5844 


DOS: BASIC: 
COBOL: FORTRAN: 
Pascal: CP/M: M/A 


32-64K RAM: Z80A: 5%” 

Byte Shop F/D (170K): 2xS/P: 

(03) 568 4022 |1P/P: optional — VDU 
($1350); Quad density F/D 


Hanimex 8-32K RAM: 6502: C: 
(02) 938 0400 |9” 25x40 B/W VDU: 
extra C Int: IEEE488 port 


Melbourne’s 


| 
$2695 


Alliance 48K RAM: Z80: 24x64, O/S: ExBASI/C 
Digital 12” VDU: RS232 ports: FORTRAN 
Corporation 2x5%” F/D (2x143K): 


(02) 436 1600 | S100 bus: 2 octave 


‘Abatis speaker: A/D Conv.: 
option—8 colour graphic 
(03) 429 5844 controller ($1450 
Alliance 64K RAM: Z80: 127 O/S: ExBASIC: 


Digital 24x80 VDU: 2xRS232 FORTRAN: COBOL 


Corporation port: $100 bus: 5%” 
(02) 436 1600 | F/D (350K) 


O/S: BASIC: A 8K $1199 |Options — dual 5%” 
16K $1859 |F/D (353K), $2329: 
B2K$2249 |$109 for disc operating ROM 
Abacus 


$4500 |M100 ACE IV — 8 colour 
graphics controller incl. 
(03) 429 5844 


Tandy 4-16K RAM: Z80: C: BASIC: Games: A $699* BASIC in 4K ROM: 
Electronics 12”? 16x64 B/W VDU upgradable to Level 2 
(02) 638 6633 


Tandy 4-48K RAM: Z80:C:12”, BASIC: M/A: $879* 16K machine includes 
N/P: 4-16K upgrade $320*: 
($250* without N/P): 
max. config. $1169*: 
option — single 5%” F/D 
(78K), (max of 4) 


Electronics 16x64 B/W VDU: FORTRAN: 
DOS: BASIC: A: E | $6350 |Graphics and numeric pad. 
CP/M: Ed 


(02) 638 6633 | RS232 port: P/P COBOL 


AJ & JW Dicker] 64K RAM: Z80: Dual 5%” 
(02) 524 5639 | F/D (630K):12”, 24x80 
B/W VDU: S/P: 2xP/P 


Microprocessor | 32-56K RAM: 8085:9”, MBASIC: MDOS E | $5692 
Applications | 24x80 B/W VDU: dual (including T/E and 
(03) 754 5108 | 5%” F/D (630K): S100 A): Version 4 
bus: 2xRS232 MDOS AND 
BASIC: CP/M 


Cottage 1-8K RAM: 6502: EPROM | %K monitor: 
Computers socket: Hex K/B: C int: BASIC S& 
(03) 481 1975 |8 digit LED display: up to H 
16 ports: options — Euro- 
card 64 way connector; 
VDU card; Full K/B card 


System1 Universal interface card 
$285: available. 
Systemll 


Dwell Pty Ltd |1-4K RAM: 6502: 8K ROM:| 8K monitor in BE. 1 $625" ase available $75* 
(02) 487 3111 | full K/B: 20 character ROM: A: 

LED display: 20 char- BASIC 

acter thermal printer: 


Cx2 int: 1 P/P 


Microtrix 1K RAM: Z80: 8K 1K monitor: DOS E $299 Also available assembled 
(03) 718 2581 ee S100 bus: 1S/P: in ROM $374 
1P/P 


Systems 4-32K RAM: 6502: 10K 
Automation ROM: full K/B: 24x32 
(02) 439 6477 | VDU Int: C int: options— 
RS232; dual 5%” F/D 
(140K) 


BASIC in 8K ROM 


BASIC: games 


PROGRAMS 


SOUND FOR THE TRS-80 


This machine language routine provides | 


an easy method for adding sound to 
pre rams. Written to be accessed from 

RS-80 Level II or Disc BASIC, it 
produces a square wave output to the 
AUX output line (large grey plug). 
Although this output is strong enough 
to drive an earplug or headphones, 
better effects are achieved by placing 
the cassette in the record mode and 
connecting the AUX plug to the cassette 
unit by the AUX i and a speaker to 
the ear phone jack. The best sound of 
all results from connecting the cassette 
output to a nice, powerful hifi system. 
Phaser blasts through this can really 
shake up the troops. 


Soundex can be POKEd anywhere in 
memory and is completely relocatable 
(it can even be embedded in a REM 
statement at the beginning of a 
program). 

If high memory is to be used to store 
the machine language drive, MEMORY 
SIZE must be set at 32695 for 16K 
machines, 49079 for 32K, and 65463 
for 48K. If TRSDOS is being used, 
an additional 51 bytes should be 
reserved. 


After CLOADing or keying in the 
BASIC program and running it, the 
Soundex drive can be accessed via the 
USR command. 

Tone duration is specified by using. 
a negative argument in the USR 


command: 
X= USR (dd) 


The variable dd can have any value 
from —1 to —32767, representing tone 
durations from 0 to 2 seconds. 

To euetsie a tone and specify its 
pitch, the USR command should have a 
Pours argument. Any value from 1 to 

2676 can be used but, practically, 
only those between 1 fad 100 are 
useful. 


Once set, the tone duration will 
control all subsequent tones until a 
new duration is specified. 

Another option available is that of 
the ‘voice’ of the tone. This is changed 
by POKEing any of the following values 
into memory location 16672: 

32 61 AS 22 +25 86.90 102 
As an example, near the beginning of 
a program the user might write: 


POKE 16672, 18 
All tones generated after this would be 
fairly smooth, sine wave approxim- 
ations. 
Under Disc BASIC, the option exists 
to disable interrupts with CMD“T”’. 


If this is not done, the tones will have 


a staccato quality. 


Soundex achieves its relocatability 
by using six bytes in low memory 
(reserved RAM) as temportty data 
storage. These positions, hex 411C to 
4120, are not believed to be used by 
Level II or any DOS. 


by Roxton Baker 


2>>>>> SOUNDEX 
BY ROXTON BAKER 


REM 
REM 
CLS 
DEFINT UrKeLl 


KMS 


INPUT°WHAT MEM SIZE DID YOU SET °;:DS 


REM SOQUNDEX WILL START 


MS=DS 


IF MS>32767 THEN MS=MS-65536 


REM POKE THE 72 BYTES IN 
FOR J=i TO 72 
READ K 
POKE MStJ*K 
NEXT J 


AT MEM SIZE PLUS ONE 


REM NOW SEE IF WE'RE IN LEVEL II OR DISK BASIC 


IF PEEK(16433) = 0 THEN 200 


REM 
Cmo*T°® 
DEFUSR=NS+1 
GOTO 290 
REM 
N=DS+1 


MUST BE DPISK 


at GS 4EVEL TI 


REM CHANGE N FROM DEC TO HEX FOR USR ENTRY POINT POKE 


FOR I=1 TO 4 

DCI) =INTCON/16€ (4-I)) 
N=N-D(1I) £160 (4-1) 

NEXT I 

POKE 16527+* 16€0(1)4D(2) 
POKE 16526» 16%8D(3)+D(4) 


REM CHOOSE SQUARE WAVE FOR DEMO 


POKE 146672:;102 
REM 
X2USR(-100) 


THIS IS THE BIG DEMO. . 


FORL=65TOISTEP-13X=USR(L) SNEXT 
FORL#iTO7ZOSTEP22X=sUSR(L) {NEXT 


REM 
REM 
REM CODE OF SOUNDEX: 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 


The advantage of POKEing the routine 
into space normally reserved for a REM 
statement is that the code becomes 
part of the BASIC program and no 
memory protection is required. Further- 
more, the BASIC Soundex program can 
be deleted, while permanently retaining 
the machine language driver which is 
then stored with the BASIC program 
under the one CSAVE oauead 


To ensure the REM statement 
containing the machine language routine 
always occupies the same position in 
memory, it should be line number 2 . 
This way the REM statement cannot 
be proceeded by any other lines. The 
REM statement must contain at least 
as many dummy characters as there 
are bytes in the Soundex driver (i.e. 
72 bytes). So line number @ should 
look like: @ REM DDDDDDDDDD 
(continue for 72 D’s) DDD. 


The address of the first line in a 
BASIC program is stored in memory 
locations 16548 and 16549 and the 
first dummy character is the fifth 


THESE FIVE DATA STATEMENTS CONTAIN THE RELOCATABLE 


2059127710%20391242490 942349282659 2019 39930265 
2192255231231931 94972230 2248195758957 1659 2547493292 
171995958132 965987 2237275928 1965274371249181749096 
2219227 °2219227 9249127492730 265912297 97987 9230039179 
2119255+391209177932922891239211 92559201 


byte in the first line. So the BASIC 
Soundex program must begin POKEing 
the machine language driver at the 
memo position given by PEEK 
(16548) + 256*(16549) + 5. This 
address should also be defined as the 
USR entry point using DEFUSR in 
Disc BASIC or its POKE equivalent 
in Level If BASIC. A word of warning: 
don’t try to renumber a program which 
contains the machine language driver in 
a REM statement as some renumbering 
utilities will confuse the machine codes 
for BASIC statements. 


The program above should be 
used to POKE the machine language 
driver into the beginning of a Disc 
BASIC program. 


To define the USR entry point in 
Level II BASIC, line 3 should be changed 
to: | 
3. POKE 16526, S-INT(S/256)*256: 
POKE 16527, INT(S/256) 


After running the program once delete 
lines 4 to 12, retaining your program 
and the Soundex driver in the REM 
statements. 


APC 49 


[ PROGRAMS 


e 12 DATA 
13 etc. 


eee 
user's ProGcgraa 


from here on. 


LREMEM EMER ERE EKER (72 K'sS total) KEMEKEZ,., 
S=PEEK(16548) + 256"PEEK(14549) + 3 


@ 2 
3 DEFUSR = S$ 

& 4 FOR Jzi TO 72 
5 READ X 
6 POKE S+J-19X 
B DATA seeeeses 
9 


14 DATA @eeeeeee  @ 


Submitting programs to APC 


Having written and thoroughly tested 
your original program @ <1t: an 
application, game, or useful subroutine) 
send it to us along with a suitable 
explanation. In order of preference we 
would like your programs submitted as 
a clear, dark listing on plain paper; on 
cassette or disc; clearly, accurately 


APPLE WORMS 


by Ray West, freelance programmer 


TAPEWORMS: A KEYBOARD VIDEO 
GAME FOR THE APPLE 


‘Tapeworms’ is a game for two players 
which uses the keyboard interactively. 
Each player has four allocated keys, 
which are identified by the keyboard 
PEEK function. Two shape tables are 
loaded by the program, and these give 
each ‘worm’ a different appearance. To 
improve the appearance of the display, 
the rotation feature of the shape table 
is used so that the direction of move- 
ment of the worm is matched by the 
rotation of the shape. A game ends 
either when a player crosses the rectan- 
gular border of the playing area, or col- 
lides with a previously plotted shape; 
the collision counter provides a way of 
checking for this event. For a detailed 
explanation of the listing, now read 
Ole 

Lines 510-640 are the main program 
control. There are essentially six subrou- 
tines which are called. : 

SUB 20000. This sets up a shape 


50 APC 


typed; Or, clearly, accurately 
handwritten. 
We pay the sender of any listing 


published at least $20, and often much 
more, depending on the size and quality 
of the contribution. If the program is 
too large or complex for the “Programs” 
section we will sometimes publish it as a 


table of two shapes. Line 20000 sets up 
pointers in locations 232 and 233, the 
low and high bytes respectively. Since 
117*256+48=30000, the Apple expects 
the shapes to start at 30000. This works 
for a 48K or 32K machine. Line 20001 
tells the machine there are two shapes 
in the table, and lines 20005 and 20010 
give their addresses, offset from 30000. 
So shape 1 begins at 30000+256*0+ 
159=30159, for example. The two 
shapes are ‘A’ and ‘V’, and were used 
because they happened to be available. 
If you don’t like them, try adjusting 
the table! 

SUB 10000. This prints the title 
page onto the screen, enabling one of 
three playing speeds to be selected. In 
addition, variables are stored just after 
the program; line 10010 ensures that 
the coordinates and directions of each 
‘worm’ are stored where retrieval time 
is minimised. Random start points and 
directions are generated for each player; 
in line 10220 they are checked to avoid 
starting too close to each other. Direc- 


feature in the magazine. 

For the sake of balance, how about 
some of the owners of less popular 
machines pitching in as well? Post your 
submissions to APC Programs, PO Box 
115, Carlton, Victoria, 3053. We look 
forward to hearing from you. 


tions 1 to 4 are converted into the rele- 
vant keystroke equivalent for each 
player. 

SUB 1000 & SUB 1400. This symme- 
trical pair of routines reads the key- 
board. The point of the last statements 
of lines 1000 and 1400 is that the Apple 
seems sometimes to admit a low ASCII 
value. If on A’s turn his part of the key- 
board registers an input, its ASCII value 
is saved; and similarly on B’s turn. In a 
fast game, only one peek at the key- 
board is allowed. 

SUB 2110 & SUB 2510. The x or y 
coordinate is incremented/decremented 
as required, and the direction indicator 
AD or BD set to correspond. Lines 2145 
and 2545 test the new plot. If it is an 
acceptable move, the other person’s score 
is increased by 1 and exit to the end-of- 
game routine occurs. The POP instruc- 
tion removes the subroutine’s return 
address from the stack: were this 
instruction omitted, after about 24 
games the stack would fill up and an 
OUT OF MEMORY message appear. 


PROGRAMS 


The formulae for ROT need to intro- 
duce multiples of 16, for which the 
values differ for the shapes plotted, so 
that lines 2147 and 2547 use different 
calculations. The direction is coded as 
1 for north, 2 for east, and so on. 

SUB 25000. This is entered only in 
a slow or medium speed game. It uses 
simple delay loops, which, however, 
have diminishing effect as the game pro- 
ceeds. So the tempo accelerates towards 
the end. 

SUB 26000. This routine displays 
the aggregate scores to date, the player 
sitting on the left having his score 
shown at the left of the screen and vice 
versa. The set of games can be termina- 
ted in order to change speed, or start 
afresh, by entering ‘N’. Since some 
characters may remain in the buffer, 
line 26040 checks for the presence of 
an ‘N’ within it. If the set of games 
continues, line 26040 loops back to 
reset new starting positions and direc- 
tions, before returning to the program’s 


main control. 


VARIABLE MAP 


By David Eyles 


The following routine for a TRS-80 can 
be used as a debugging aid in the 
development of programs. When called 
upon, it displays all single letter variables 
and their values. 

Integer, single precision, double 
precision or string variables will be 
displayed depending on the definition 
character following the variable “Z”, 
(using the listing shown below, single 
preuisen variables would be displayed). 

o change this character use EDIT Q. 

The routine can be accessed from the 
command mode or are statements 
by GOSUB 9 or GOTO @Q. If accessed 
from the command mode, an RG error 
will result after execution of the routine 
leaving the computer back in the 
command mode. 

Take care when keying in the routine 
that no spaces are inserted or deleted — 
results can be disastrous! Each time 
RUN is entered the routine will be 
executed, so to. run the program 
properly use RUN line number. 


OZX=19 : ZW=17194 : POKE16396, 
23:CLS : FORZV=65TO9G : POKE 


ZX ,2Z2V:2?@ZX,CHRS (ZV) ;" = "; 


Z!;:ZX=ZX+32 :NEXTZV:POKE 


16396 ,291:RETURN 


ACRONYMS 


Submitted by Richard Forsyth 


This program was designed by Richard 
Forsyth to convert any word Oe to 25 
characters) into any acronym. Suitable 


@ | 2 REM 'TAFEWORMS’ GAME (C) RAY WEST MARCH 79 ; 
11 GOSUE 2@66G: GOSUE 18688 e 
519 GOSUE 1906: REM SEE IF A WANTS TO MOVE, 
526 GOSUE 211@: REM PLOT A’S NEW FOSITION 
@ | 530 IF PEEK (234) ¢ > 2 THEN SEZ = SEX + 1: GOTO 26@0@: REM END OF A GAME INDICATED EY COLL 
ISION COUNTER 3 
546 IF KR < >) 1 THEN GOSUE 25000 
618 GOSUE 1488: REM SEE IF & WANTS TO MOVE 
@ | 62@ SOSUE 2516: REM PLOT E’S NEXT SEGMENT 
639 IF FEEK (234) < > @ THEN SAX = SAZ + 1: GOTO 26600: REM END OF A GAME = 
632 IF R = 1 THEN S16 
635 GOSUE 25800 
@ | 449 «GoTo 519 
1600 Z = FEEK ( - 16384): FOKE - 16368.@: IF Z < CT% THEN Z = Z + CTZ% @. 
19@2 IF Z = WK% OR Z = SKZ% OR Z = ZK% OR Z = AKX THEN ADZ = Z: RETURN 
1904 IF R = 1 THEN RETURN ae 
@ | 1906 z = PEEK ( - 16384): FOKE -16368,0: IF Z < CTX THENZ = 2 + CTY 
19@@8 IF Z = WK% OR Z = SKX OR Z = ZKX% OR Z = AKZX THEN ADX = Z: RETURN | @ 
1620 RETURN | 
e@ 1498 Z = FEEK ( - 16384): FOKE - 16368,@: IF Z < CT%. THEN Z = Z + CTX 
1492 IF Z = OK% OR Z = LKX% OR Z = CK% OR Z = KK% THEN EDX = Z: RETURN @ 
1464 IF KR = 1 THEN RETURN 
14@6 Z = FEEK ( - 16384): FOKE - 163468,@: IF Z <¢ CT% THEN Z = Z + CT% 
@ | 1408 IF Z = OK% OR Z = LK% OR Z = CK% OR Z = KK% THEN EDZ% = Z: RETURN 
151@ RETURN @ 
2116 IF AD% = WKZ THEN AY% = AYX% - C7Z%:AD = C1% 
2126 IF ADZ = SKZ THEN AXZ% = AXX% + C7%:AD = C2% 
@ | 2136 IF AD% = ZK% THEN AYX = AYZ% + C7%:AD = CBX 
2149 IF AD% = AKZ THEN AX% = AXX - C7%:AD = C4% sS 
2145 IF AX% < 2 OR AXZ > 277 OR AYZ% < 3 OR AY% ) 152 THEN FOF :SEX% = SEX + 1: GOTO 246900 
2147 ROT= CS% * CAD - C1%) 
@ | 2156 DRAW 1 AT AXX%,AYX%: RETURN 
2516 IF BDX = OKZ THEN BYZ = BY% - C7%:ED = C1% S 
252@ IF &D% = LK% THEN EX% = EXX% + C7Z%:ED = C2% 
2530 IF BDZ = CKX THEN EYX = EY% + C7%:ED = C3% 
@ | 2540 IF ED% = KKX THEN EX% = EX%.- CZ7.Rp == Cax 
2545 IF &X% ¢ 2 OR EXZ% ) 277 OR BYX < 3 OR BYZ% > 152 THEN FOF :SAX = SAX + 1: GOTO 246000 2 
2547 ROT= CS% x (CiZX + ED) 
e 255@ DRAW 2 AT EX%,.EY%: RETURN 
1@@@@ TEXT : HOME : FLASH : PRINT "xxx TAPEWORMS KOK": NORMAL & 
10810 AXX% = B:AY% = B:EXX% = B:BYX = B:AD% = BG: ED% = @B 
10915 WKZ% = 215:SKX% = 211:ZKX% = 218:AKZ% = 193:O0K% = 207: LK% = 2@4:CK% = 172: REM 
@ | 19016 KK% = 263: REM K=KEY. STORED AT START OF VARIAELE SPACE 
19017 C1% = 1:02% = 2:03% = 3:€4% = 4:07% = 7:CS% = 16:CTZ% = 128 & 
1@@3@ PRINT : PRINT : PRINT "A GAME FOR 2 PLAYERS": PRINT : PRINT "FP REFERAGLY ONE LEFTHANDER! 
"; PRINT : PRINT : PRINT "FIRST FLAYER’S WORM CONTROLLED": FRINT "WITH KEYS W,S,Z,A." 
@ | 19440 FRINT : PRINT *SECOND PLAYER USES 0,L,COMMA,K." 
10045 FRINT : FRINT : PRINT "A RAY WEST SUPERIOR": FRINT "FROGRAM FRODUCT*: FRINT & 
16646 INFUT "SLOW, MEDIUM, OR FAST GAME?"; K$ 
19647 IF LEFT$ (K$,1) = *F* THEN R = 1:S = 1:T = 1: GOTO 10058 
196048 IF LEFT$ (K$.i) = "M* THEN R = 10@:S = 5@: GOTO i9050 
10049 R = 20@:S = 158:T = i158 : S 
IWG5G FRINT : FRINT "HIT R "N TO FLAY": GET KS 
1@20@ AXX = 7 x INT (¢ RND (1) * 34 + 3)):AYX = 7 & INT (( RND (1) ® 17 + 3)):AD = INT (1 + 
4 x ND (1)> 
1021 IF AD = 1 THEN ADX% = 215 @ 
19202 IF AD = 2 THEN ADZ = 2f1 
10293 IF AD = 3 THEN ADZ% = 218 
19204 IF AD = 4 THEN ADX% = 193 
,1021@ EX% = 7 & INT (€ RND (1) ® 34 + 3)):BY% = 7 & INT (( RND (1) ® 17 + 3)):BD = INT (1 + S 
4 x END (1)) 
16211 IF ED = 1 THEN EDZ = 287 
16212 IF ED = 2 THEN EDX = 284 
19213 IF ED = 2 THEN ED% = 172 @ 
19214 IF EBD = 4 THEN EDZ = 283 
1@220 IF ABS (AXZX - EX%) ¢ 2@ AND AES (AYX% - BYZ%) < 26 THEN 162086 
183@@ HCOLOR= 3: SCALE= i: HGR 
19305 SF = @ r 
10210. HPEOT 373 10-277, 3 40-277 2152 103 152.-T6"32 3 
1@32@ RETURN 
28000 FOKE 232,48: FPOKE 235.117 
26001 FOKE 39@4G,2: FOKE 28961.9 & 
20005 POKE 3@942,15°9: FOKE 369a3,6 
20G1@ FOKE 39@@4,21: FORE 29895,.2: REM Vv 
20015 POKE 36159,144: POKE 38916@, 27 
20020) POKE 3@161,.4: FOKE 36162, 36 & 
2025 -POKE 30143,36: FOKE 7@1464,33 
"9030 FPOKE 30165,49: POKE 361446,49 
23035 FOKE 3@167,49: FOKE 29168,54 
2864G FOKE 30169,4: FOKE 38179, 36 eS 
20@45 POKE 3@171,463: POKE 28172,62 
29047 FOKE 39173, 
2305Q@ FOKE 26789,144: FOKE 38799. 36 & 
20055 FOKE 36791,39: POKE 28792,68 
20068 FOKE 34792.36: POKE 328794.149 
29065 FOKE 30795,72%: PORE 38796,54 
20070 POKE 30797,55: FOKE 28798, 42 @ 
20075 FOKE 30799,6 
2@G68 RETURN 
25000 SF = SF + 1: IF SF > BB THEN 25946 
25910 IF SF >} 46 THEN 25830 & 
25020 FOR I = 1 TO R EXT 
250308 FOR I = 1 TO S: NEXT 
25@4@ FOR I = 1 TQ T: NEXT 
25050 RETURN & 
26000 HOME : FOR I { 70 7: FRINT CHR¢ (7);: NEXT : VITAE 23: PRINT SECC 11);: INVERSE : PRINT 
"KEKE SCORE *#eK": NORMAL : FRINT SA%; TAEC 41 ~ LEN ( STR (58%))): SEX 
25@1@ INFUT "HIT RETURN FOR NEXT GAME OR N TO EXIT": K4 
246028 VTA 22: CALL 956 & 
26034 IF K% = "* THEN GOQSUE 162@@: GOTO 518 
26040 L LEN (K$): FOR I 1 TOL: IF MID# (KH,L,1) < > "N* THEN GOSUE 16298: GOTO 518 
26058 WEXT I ‘ 


26040 END 


catch phrases are generated using a 
buzzword directory. In order to make 
the program more useful, an entire 
selling blurb (containing more vital 
buzzwords) is produced. A_ useful 
feature of this program is that you can 
request any number of alternative 
blurbs for each acronym entered. 
Here is an example: 


What is BRUCE? 


BRUCE is a dramatic new develop- 
ment. It stands for Binary Record Un- 
bundled Centralized Encoding a totally 
new concept in Encoding. 

BRUCE is not only Reactive 
but also Normally Acoustic. 


It has the following attractive feat- 


ures: Sess 
**Structure 
**Multiprogrammin 


**Relational Formulation 
** Access Switching 
**S tandardization 


BRUCE is Forward 
because of its Computational Facility 
Y-axis. 
It also has Networking Hash-coding 
which makes it Modular. — 
It is in a class of its own when it comes 
to the Layout Servo-mechanism, 
and above all it is Environmental. 

Can you afford to do without 
BRUCE (Binary Record Unbundled 


_ Centralized Encoding)? 
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We had to remove the contents of line 
9000 as it comprised Sate variable- 
length anglo-saxon words. These words 
were incorporated to enable the pro- 

am to display the phrase in line 1560 
also deleted) to the rude user. You 


will, no doubt, want to create your own 
vocabulary. 

Each record comprises two words W$ 
and T$ where W$ is the word and T$ 
is the description A,AA,.N or NN. A 
describes an adjective, AA is an adverb, 


JREM* PROGRAM TO MAKE UP CATCH 


PHRASES FROM BUZZ-WORDS: 


‘REM* BY RICHARD FORSYTH, 1978. 


DIM WS (1500) ,W(3) ,G(3,27) 
DIM P$(25) ,P(25) ,SS$ (8) 
MARGIN 82 


REM* TABLE ADDRESSING FUNCTION: 


DEF FNW(I,J)=366*1+J 
RESTORE > 

RANDOMIZE 

REM* READ IN SWEARWORDS: 
READ S$(Z) FOR Z=1 TO 8 


REM* MAIN LINE: 


GOSUB 1680 '" INITIALIZE 
GOSUB 1598 " USER INPUT 
IF LEN(I$)=@ OR B<l THEN 160 


PRINT 
LET B=B-1 


GOSUB 2000 " GENERATE AND STORE 


GOSI'B 30088 * EXPRESS 
IF B>@ THEN 125 

PRINT \ GOTO 115 

PRINT "VOCABULARY LISTING 
INPUT YS 

IF YS="Y" THEN GOSUB 4009 
GOTO 9999 


REM* DATA INPUT ROUTINE: 
FOR J=0 TO 3 

LET W(J)=0 

FOR I=0 TO 27 

LET G(J,1I)=0 

NEXT I \ NEXT J 

LET H=@ 

OPEN “WORD.FIL" FOR INPUT 
IF END #1 THEN 1189 

INPUT #1, WS,TS 


- MANUFACTURER 
OHIO SCIENTIFIC COMPUTERS 


HARDWARE: 


1. MEMORY EXPANSION BOARD, 8K. 
The Double sided Plated through the 
Board has 8K of wired sockets with driver 
and buffer 1|.C.’s and R.F. filters. Add 
2114's as you require RAM. .KIT .$120.00 


Fully assembled and tested, extra $15.00 
2. 4K RAM Memory Expansion Chips, 


2118 MOONS eG 3 ae ex $ 52.00 
3. R.F. Modulator, 5 to 9 Volt, all 
ensenes on fe $ 19.95 
4. SUPERBOARD II Cover/VDU . 

SIGHO 8c oe ce oS ee $ 18.95 
5. SUPERBOARD II COMPUTER 

BK ROM,4K RAM.......... $389.00 
6. CHALLENGER C1P COMPUTER 

8K ROM,4K RAM....... - . ,$489.00 
7. CHALLENGER C4P COMPUTER, 
Sound/Caiour.. oS SS $946.20 


(Y=YES) "; 


REM* USER INPUT ROUTINE: 
PRINT "GIVE YOUR WORD:" 
INPUT IS 
IF LEN(I$)>25 THEN PRINT "TOO LONG!" 
\ GOTO 1516 
FOR Z=1 TO 8 
: IF INSTR(1,1$,S$(Z))>@ THEN 1555 

AS FILE #1 NEXT Z 
PRINT "HOW MANY BLURBS (@ TO HALT)"; 
INPUT. B 


SOFTWARE: 

We regret, PRICE RISE, due to shipping 
costs. All previous (54) advertised Cassette 
Software, up $2.00. Instructions (14 sets), 
are still the same price. O1 is now replaced 
by an updated, and enlarged C1 at $2.95 


NEW PROGRAMMES 
for OHIO — SOFTWARE: 


ILITIES 

U.15. Dissassembler —4K .... $10.95 
U.16. Filename, for cassettes .. $ 8.95 
ais dee es ea $12.95 
U.18. Packer — (K saver). .... $14.95 
(19 Cursor-— C2/4 ..-2 2.2 = $13.95 

INSTRUCTIONS: 

1.11. Dissassembled ROM, with 
Comment. 3. eee $12.95 


1.12. 32x64 Character Display. . $12.95 
1.13. Wp 6502 Word Processor 


Been eS eee $ 3.95 
1.14. Dissassembled ROM, with 

Inbuilt References ........ $13.95 
1.15. Sound —S1I/CIP. ..... $ 6.95 
1.16. G.T. Conversion, X2.... $ 2.95 
1.17. Saving Dataon Tape... . $ 6.95 
1.18. CIP Tape Control. ..... $ 6.95 
11S--ClP Beoper.. es $ 5.95 
1.20. CIP/Base 2 Printer ..... $ 6.95 
1.21. Morse Code Converter and 

Ts oS ee $16.95 
1.22. 32x64 Character — 100% 

Hardware... no See $13.95 


IF H>120@ THEN 1180 

IF WS="**" THEN 1186 

LET T=0 

LET A=ASCII (WS) -64 

IF TS="A" THEN T=] 

IF TS="AA" THEN T=2 

IF TS="N" THEN T=3 

IF TS="NN" THEN T=4 

IF T>0@ THEN 10790 

PRINT "INPUT ERROR: ",WS;" , ";TS 
GOTO 1622 

LET W=T-1 

LET W(W) =W(W) +1 

LET WS (FNW(W,W(W) ) )=wSt+"" 

IF G(W,A)=0 THEN G(W,A)=W(W) 
REM* NOTES START OF EACH LETTER. 
LET H=H+1 \ GOTO 1622 

REM* END OF FILE: 

CLOSE 1 

PRINT H;"WORDS." 

FOR J=0 TO 3 

LET G(J,27)=W(J) 

NEXT J. 

PRINT WS 

RETURN 


N a general noun and NN a specific 


noun. 


The first few words in Richard’s vocab- 
ulary are listed at the end of the pro- 
gram to guide you. You will notice that 
it is alphabetic on the initial letter only. 


BUSINESS: 
B.4. Savings and Loan Package . $14.95 
D.2. Flashboard, your advert . . $10.95 
GAMES: 
G.25. Alien Invaders/Space 
invaders: oa $10.95 
G.26- Orbital Lander... = $11.95 
G.27. Escape from Mars, 2 tapes $18.95 
G.28. Death Ship, 2 tapes .. . . $18.95 
G28. Startrek. os Se $ 7.95 
G.30. Air — Sea. Battle.. 23 = = $ 7.95 
BOOKS/MAGAZINES/CATALOGUE 
T.1. The First Book of OSI... $19.95 


T.2. Aardvark Journal (6 issue) . $12.95 
T.3. Basic Handbook, David Lien.$15.95 
T.4. Personal Computing Monthly$ 2.20 
C.1. Catalogue describes all software 


and hints and free progs..... $ 2.95 
Postage: 

1 or 2 $1.00 

3 — 5 $1.50 

6 — 9 $2.00 


10 or more $2.50 


All prices are subject to change without 
notice. 


All prices INCLUDE Sales Tax. 


MAIL ORDER: Check or Bankcard 
Looky Video, P.O. Box 347, Richmond, 
3121. Victoria. 

Shop: 418 Bridge Road, Richmond, Phone 


(03) 429 5674 


welcome here 
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RETURN 
REM* DIRTY WORD: 
PRINT @ 
REM* KEEP IT CLEAN! : 

STOP ° 


REM* PHRASE GENERATOR ROUTINE: 

LET L=LEN (IS) e 
MAT P=ZER \ LET pS="" 

REM* FIRST WORD FIRST: ad 
LET T=INT (RND+1.5) ' ADJ/ADV 

LET P(1)=T e 
LET A=ASCII (I$) -64 

GOSUB 2200 ' PICK WORD OF TYPE T * 
LET PS$(1)=ws+"" 

LET PS=PS+wS+" " 

FOR J=2 TO L e 
LET A=ASCII (MIDS (I$,J,1))-64 

IF J=2 AND P(1)=2 THEN T=1 \ GOTO 2865 @ 
LET R=J/L 

IF R>=RND THEN T=INT(3.5+RND) ELSE T=] ° 
LET P(J)=T ' TYPE OF JTH WORD 
GOSUB 2206 ' PICK WORD 

LET P$(J)=wSt+"" \ PS=PS+WS+" " 
NEXT J 

LET PS=LEFTS (PS, LEN (P$)-1) ° 
RETURN 


® 
REM* WORD SELCTION ROUTINE: 
LET W=T-1 @ 
IF A=0 THEN 2300 

IF A<] OR A>26 THEN WS="" \ RETURN e 
LET GO=G(W,A) ' START OF THAT LETTER 

LET G=G(W,A+1) -G@ 

IF G<=0 THEN WS="!?" \ RETURN & 
LET I=INT (G*RND) 

LET WS=WwS (FNW(W,GO+I))+"" @ 
RETURN 

REM* NO CHOSEN INITIAL: e 
LET I=INT (RND*W(W) +1) 

LET wS=WwS (FNW(W,1I))+" Pa 
RETURN 


REM* OUTPUT ROUTINE: ad 
LET T1=0 \ A= 

PRINT \ PRINT "What is ";IS$;"?" & 
PRINT "-": FOR Z=l1 TO L+9 

PRINT \ PRINT @ 
PRINT TAB(4);I$;" is a dramatic new development. It stands for" 
PRINT P$ e 
IF P(L)=3 THEN 3240 

PRINT "a completely new kind of ";PS(L);"." e 
GOTO 3045 

PRINT "a: totally new concept in ";PS$(L);"." 
PRINT I$;" is not only"; 

GOSUB 3520 " ADJ PHRASE ° 


PRINT \ PRINT "but also"; 
GOSUB 35086 \ PRINT "." 


PRINT TAB(4);"It has the following attractive features:" bad 
PRINT \ LET N=INT (RND*4,. 4+2) 

FOR Z=l1 TO N & 
PRINT: TAB (6) °*#* “> 

GOSUB 3698 " NOUN PHRASE & 
PRINT \ NEXT Z 

PRINT ® 
PRINT IS;" is"; 

GOSUB 3506 \ PRINT 

PRINT “because of its"; e 
LET T1l=4 \ GOSUB 3688 

PRINT ea! 8 
PRINT "It also has"; 

LET T1l=3 \ GOSUB 3600 r=) 
PRINT 

PRINT "which makes it"; 

GOSUB 3502 \ PRINT "," ad 
LET T1=INT (RND+3. 33) 

PRINT "It is in a class of its own when it comes" ie 
PRINT "to"; 

IF Tl=4 THEN PRINT " the"; @ 
GOSUB 36028 \ PRINT "," 

PRINT “and above all it is"; e 
GOSUB 3586 \ PRINT "." 

PRINT TAB(4);"Can you afford to do without ";IS 

PRINT "("spSe") 2M & 
PRINT 

RETURN @ 
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PROGRAMS 


REM* ADJECTIVAL PHRASE ROUTINE: 
IF RND>Y.44 THEN 3520 
LET T#=2 ' ADVB 

GOSUB 2200 

PRINT " "swsS; 

LET T=] 

GOSUB 22098 

PRINT " "sWS; 

IF RND<@.8 THEN RETURN 
PRINT " and": 

GOTO 3522 ' REPEAT' 


REM* NOUN PHRASE ROUTINE: 
IF RND>@.5 THEN GOSUB 3520 
LET T=INT (RND+3. 33) 

GOSUB 2200 

PRINT " "sWS: 

IF RND>@.6 THEN 3610 
REM* LOOP AD LIB. 

IF T1l=@ THEN RETURN 

LET T=T1 \ GOSUB 2280 
PRINT " "eWS; 

RETURN 


REM* WORDLIST ROUTINE: 


PRINT \ PRINT TS 

PRINT W(W) 

FOR J=1 TO W(W) 

LET Z=FNW(W,J) \ PRINT WS(Z), 
NEXT J \ PRINT 

NEXT W \ PRINT 

RETURN 


DATA 
DATA ADJ ,ADV,NOUN-GENERAL , NOUN-SPECIFIC 
END 


Administration,N 
Administrative,A 
Always,AA 
Algebra,N 
Accumulator ,NN 
Axiom,NN 
Abnormally,AA 
Accounting ,N 
Address ,NN 

Array ,NN 

Audit ,NN 
Automation,N 
Available,A 
Approved,A 
Asynchronous ,A 


ALIEN ATTACK 


by Peter Wright 


This program, written for PET will work instructions (with one spelling mistake) 
with or without a sound box. Full are included in the program. 


& REINT CCS. #RNDE 12441 
1G PRINT" CIAUalelalelaleledeveletedeleleteTede0eTedetsin) @ 
2 H=32Peo M=1:T=68 
2763 THENM= 1 

16 THENM=~ 1 e 
2" ORAS= "=" THENS: . 


& 
41 IFAS="B 
42 G0TOSe 
@) 45 [FM=1THENM=-1 -GOTOSa e 
44 M=t 
Sa H=N+M: POKEX, $3:>POKEM-1. 32 POKEN#1, 32 
@) S52 IFPEEK (8 +320=16G0RPEEK (+320 32214 THENGOTOI Gen 
.| 53 [FPEEK (+640 =2147HENK=*+600 -GUTO1G18 : ® 
54 IFFF=aTHENS 
@ | 55 [FFF=1 THENGOSUESE4 
S6 IFFF=1THEN28 @ 
6 TT=¢J-H):T=T+1: IFT<TTTHEN1 AG 
@ | 55 HeINT Sc S.4RNDC 130: IFN=1THEN?S 
Bé6 POKEG, 20: POKEL, 2a:S9scaoe) 
PH PRINTTAECK) a” “MMBeee  GOTOSG 
@| 72 FORNI=GTO1G POKER. 28 :POKEL. 28° SYS¢S20% NEXT 
75 PRINTIAECE)° ere & 
S@ T=O:R=INTC C36 2#RMDC 193 
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PROGRAMS 


“male 
On 
oi 


ae 
a 


BETAS 
IFA¢=" "ORES="FP"THEMPP=1  Fas+90 PORES. Soo POKER 

GOTOSEA 

IFRI=10RLE=1 THEMSHaae 

F=F+44 Ss 
GETAS: [FAF="8"ORAF="="THEN SOT 

GOTOSLA 

IFid#=1 THEMM=—-1 > GOTOS1a8 

f= @ 
IFFEER SF S=1600RFEER OF s=2147THENH=H+1  GUTOSee 

IFPEER CF <2 233 THEN 20 

POREF-—48. POREF-41. o: PURER — Pate e 
FORG=SOT OSG: HEMT : PURER —401, a oes 
PORES. 28: FPOKEL, Se syscaceo D=1 FI 
TPPEER CE reser 
3 0aee Big 1B 


b> pe 


fbb 


41,32 -PUKEF-1, 
={ ee F-1: oer: 


Pe Lobo ee ih On fe eee 


Pea ee ee eee 


6% 
et 


ep Cat ed te a te 
i 


[PORE +1. 
46, Be: FOKE! 
See ay Seca = 
2} = 5) THEN F = A TS=8 °F 
& ITFDT=1 THEMHRETURH 
W POKEP. 46° POKEF-48. 32 
RETLUFH 
POREF-4a., : 
POREF-48, 
4 FORM=8TO1 3 
Wi POKEP. ler -PoOREF+SS, ler: POREF+4S. 127 
FOREF. 224: POREF +39. 224° POR EF +4, cod 
POREF-1.42:°POREF+i. 42 
POREF+41.127 
FOKEF. 228 (FPOREF+S9, 255  POREF +o. 2 
POREF. (G2: POREF+S9. 182: FPOREF +4, 14 
FORER=lo4d eT: POR EF+?, ta 
POR EF - 1,32 -PUREF +I. 32 
POKEF+41.255 
POREPF. So: RPOREF+S9. 32° FOREF+46, 3 
POREF +41. 32 
HES TO FRSe 
IFF=K-487THEHPORESR, SSS: POREL. S35: Ss s¢82e80° 60701 Sen 
T=8: RIl=8: LE=8: RETURH 

Res +250 

IFFPEER SK 2 =S37THEML 118 

PORER. 24 

PORES. G8 °POKEL, 10 ‘SyScsas> 

Bask -d44: GOTOLEa 1 &- 
RARER. LAB POREL. 18 
FORER. S11: ites oe 
POREK 439 POKER + 

K+< 
=38 


bi 
P99 POKER +4; 
a 24 Lest FoF +4 @ 
1 POKEP-4, 30° RETURN 


Rt fe alt FF, 
& 


CY tat tae ty. 


32°POKEG, 225 POKES “SYS¢826)_ 
Se ¢POREF. s2:PUREF-1. 32: POREF+1, Sz PUREF +35, 32: POREF +41. 
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port 


NEG Rt 


eos 
a 


moe A al Pe ee ee ee Pe 


0 OR ee ee CAC EAN 


R= +40 FREER CE) 
GOTOH 1a 

FORM=OT CES 
FORS=ATO26 HEX z 
PRINT: FORER. Sa ->POUREL. Se SYSckse 2 


OP teh a a SI OG ET eg sae 
UOT US Ue Le Ee 


A 
me 
$O2 
Ties &: 
@ 


ft TEBd che THENPRINT SONI GOT "H"BUT 1° ONCY YOUR PETA‘aoToOseas 

= PRT MT "TADS ROBBER CL! DESTROVED' HOF THE ALIENS" ® 
TFH2cHTHENHS=H PRINT PRINT" sOeMMBITT IS THE BEST SCORE SO FAR" GoTOSaLA 
PRINT PRIHT MM@BBITHE BEST SUORE IS"Ho 

1 FORASOTOLE 

) GETAS MEST . 
4 PRINT: PRINT OMBBBITO PLAY AGAIN FLUSH AMY KES" 

PRINT PRINT!MBBIRFTER 36 SECONDS T WILL PLAY ALONE" ‘ 


c IFT 1 $=" GGG20" THEMES" H=8 > J=5:° 08: 60TOe8 
M GETAS: TFAS=""THEHShe7 

IFiBA=22THEHRUMS S 
a mar hes Be="" - H= ‘Sie T= Ack I {E=6 GOT Ce 

IFLE=1 THEME =41 -G07TOSHe 
Keita 
F=F+h: [FPeS37P2SS7THEMPOKEP-E. So: FF=8 T=: RI=6°LE=8 RETURN 

© [FREER CF os S2THEMPOREF-E. 32° H=H+1° G0TOse44 

@ BOREF. 46° POKEF-E. 32: RETURN 

A TFPEER OF +1 =16eQ0R PEER CF +1 3=2147HENF=F +1 > GuUTOsee8 
© JFFEER CF =1680RFEER SF o=S14THENSon 

AM [FREER F-1s=Lee@0RPEER CP-15=2147THEHF=F-1: 6070568 
Ww JFPEERCF-413=1800RPEER ¢F-41 9=2147THEMFH=F-41 > G0TO5a8 
@ JPPEERSP-S9 9=1880RPEER CF-S30=2147HEMF=F-39:° GOTOSoo 
@ IFFEER« Soe eee F+4i  GuUTOSeu 
4 PORESS459. 255 

2 EORUREEZETOS? Si 

4 RERDE: PORKEHB. B: NEXTHE 
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DATA AE 


4 DATALSS. 1.162.215.1492, 64.232. 178. 262. 205.253. 2468.8. 248.8. 2468.8. 246.8. 246 
@ DATAG. 162.2 ie 64.224. 17H. She SHS. S53, 195. 4, SHS. 5.234.234.2354. 534 


mW DATARS. 240, AM, 246.86, 205. 215 

ER THT" TIIlelalele[eledeleb OBI TEN ATTACK" 
PRIVHT" BRR RRRRBRBBE FETER WRIGHT" 

FOR S=8TOSHae > MEST 

PRIHT" "lelalslalelseeep eh eeeeo YOU HEED INSTRUCTIONS >" 
GETH# IFAs" " THEMSH18 

IFAS="H" THENRE TUR 

PRIHT" SHOU ARE THE “#° AT THE TOF OF THE SCREEH" 
PRINT"’THE QEJECT OF THE GAME Is. 

FRIHT’ NTO DSETROY THE ALIENS SHOWH BELOW." 
PRIHT"S1.HAS SHORT RAHGE WEAPONS AMO 2. LONG" 
PRINT SHoO1l. or Hos, ae 

PRIWT" +oe rex 

PRIHWT' THEY WILL APFEAR AT THE BOTTOM." 

PRIHT' AIF THEY ARE HOT DESTROYED THE’ WILL. “ 
PRINT SINOVE UP AND DESTROY you," 

PRIHT" TO FIRE AT THEM FRESS THE “SFACE” EE.” 
PRIHT ature SHOT MUST HIT DEAD CENTEE. “ 

PRIHT" MIF IT DOES HOT IT WILL BOUNCE OFF," 
FRIANT" sls FUSH AHS EES TO COHT IHUE 
GETAF: IFAF=""THEHS1 Se 

PRIHT "SOU MAY REVERSE THE DIRECTION. “ 
PRIHT"aRol ARE Mu'vING AT AN TIME. " 

PRIWT“SRITH THE “~=" KEY OF THE “@° KEY.” 
PRIHT’STHE HUMBER SOL) DESTROY IS SHOWN AT." 
PRIHT"SITHE EMD) OF ERCH GHNE.” 

FPR IHT"@THE ALIENS ARE SLOW TO ADWAHCE AT FIRS." 
PRIHT"BUT THE MORE You DESTROY THE FASTER." 
PREIHT  MTHEY WILL MOVE.” 

PRIHT" abOH’T CET THEM GET TO CLOSE BECAUSE. " 
PRINT" SRHHEH THE FIRE THE'' NEVER Miss." 

PRIHT SPLUG IH A SULIT BOS IF ou HAYE GHE!”" 
PRIWT Bla FUSH ANY FEY To PLAY z 
BETAS: IFAF=""THEHS228 
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BENCHTEST 

The TRS-80 Model II is an attractively pack- 
aged integrated unit with the sort of features 
that one would expect from a machine with a 
$5,000 plus price tag. How has Tandy 
survived the move upmarket... ? Stephen 
Withers reports. 


PROGRAMMING — THE SIMPLE APPROACH 
Mervyn Axson leads you gently through the 
minefield of writing your first “real” programs 
in BASIC. 


COMPUTER GAMES ; 
Part three of the series, David Levy introduces 
a minimax refinement known as the alpha- 


or R- PRR ao pon Pre. : 


STRINGY FLOPPY 

Thomas Murphy gives his personal impressions 
of a device that looks set to radicalize the 
concept of information storage for the small 
computer enthusiast. Next month’s cover 
Story. 


THE COMPLETE PASCAL 
Sue Eisenbach and Chris Sadler continue their 
series with Part 3. 


PRACTISING A LITTLE MICRO-CONTROL 
Z80 control signals explained by Mike Dennis. 


BUZZWORDS 
Our dictionary of computerese continued. 


beta algorithm. 

PLUS REGULAR FEATURES 

Newsprint, Computer Answers, In Store, 
Systems, Leisure Lines, Interrupt and 
Programs. 


CHOOSING A SYSTEM 
Dr Jon Patrick of Prahran C.A.E. presents 
guidelines for selecting a business system. 


ADVERTISERS INDEX 


Computerland (Melbourne) 
Computerware 

Cottage Computers 
Deforest Software 


GES Electronic Imports 
Hanimex 


Informative Systems 

The Logic Shop 

Looky Video 

MS Microsoftware 

Ohio Scientific TCG 
Seahorse Computer Services 
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At last your TRS-80* can run Pascal too! 
The Chung/Yuen “‘tiny’’ Pascal is fully 
implemented for Level 11 TRS-80*, 16K and 
up. You no longer need to be left out of the 
growing group of Pascal users, because People’s 
Pascal gives you everything you need to write 
structured Pascal programs: 

e tiny Pascal compiler e complete text editor 
for writing your programs e complete tiny 
Pascal monitor. e sample Pascal programs 

e users manual (TRS-80 Computing issue 1:4) 
People’s Pascal is both a powerful, structured 
language and ‘‘CPU expeditor’’. People’s 
Pascal programs execute at least four times 


$29-95 


faster than Basic, and often eight-times 
faster! Special functions open up the com- 
plete graphic capability of TRS-80*. You 
now have the means to write those dazzling, 
impressive, high-speed graphics programs 
that are great for games, plotting, statistics, 
etc. 

For the serious computerist, side two of 
People’s Pascal I! (tape 6) contains a larger 
compiler and complete source to the compiler, 
written in Pascal This means you can re- 
compile the compiler, making changes, 
adding features, etc. (but this will take at 
least 36K RAM and a solid knowledge of 
programming). 


MS MICROSOFTWARE 


~ People’s 


Pascal 


With the complete People’s Pascal operating 
system, you can save and load both source 
(Pascal) programs, and compiled programs, 
to or from cassette tape. This means that 
once you have de-bugged a program, you can 
save the P-code (compiled program) and 
thereafter, to run the program, you need 
only load the super-fast P-code. 
Here is apartial list of People’s Pascal features: 
recursive procedure/functions @ for (loop) 
@case if/then/else © one-dimensional arrays 
e write eread constant e repeat/until(loop) 
e'‘peek & poke’e plot (graphics for TRS-80*). 


Please send mai! order to P.O. Box 119, Essendon, Victoria, 3040. 


$29.95 includes postage within Australia 


* Trade Mark of Tandy Corporation 


The Challenger 4 


Whichever way you look at if, no other computer 
offers so much for so little, and in colour! 


Minifloppy - two can be 
added. 


Full 53 key, keyboard which in 
polled mode can recognise 
up to8simultaneously.  =—— oo : ; ni 
depressed keys. Peis eee RF shielded aluminium case 
2 with 2 step baked on enamel 
finish. 


Inside: real time clock and 
countdown timer 24K 
memory 6502A processor 


Solid oiled walnut sides. 


Control line interfaces, Joystick sockets - add Colour adjustment. Video Display 64 x 32 Sound outputs, 
parallel lines for home realism to games. programmable tone 
security, accessory BUS, generators - 8 bit 
parallel 1/Q lines or other companding digital to 
TTL signals. analog convertors. 


RF output for control of 
AC appliances. 


Printer RS232 interface Numeric key pad slots. Cassette sockets. 


You'd have to go a long way to A real time clock and count Special offer with this 
get better value in a computer. It down timer, a 64 x 32 display in 16 advertisement only — bring it 
has execution speed that really colours, including 8K memory inthe along with you when you visit your | 
separates the computers from the cassette version, 24K for the dealer and obtain $20 discount off | 


toys. We think the Challenger 4 is minifloppy. A BUS structure allows your CHALLENGER 4 purchase. | 
way ahead of anything youve seen _ easy plug in of extra memory or 
so far, for a wide variety of uses many more OHIO boards. The BUS 
including business, personal, means modularity. If you bought 
educational and games, as well as your vintage C2-4 in 1977 we can 
a real-time operating system, word — change the boards at a much lower 
processor and a data base cost than a new computer. 
management system. For the best surprise of all ask 
The Challenger 4 has a 2MHz our opposition if they can provide 
6502 processor, and if that’s not fast _ all these facilities. When they can't, 
enough wecan supplytheGT option ask us! 


F oe) 
with the 6502C processor, and 120 TOMORROWS TECHNOLOGY TODAY g | 
nanosecond memory which © | 
averages over one million 0 
instructions per second. 8 | 

E 
. . Q 
For more information and Macelec WOLLONGONG 29-1455 SOUTH AUSTRALIA WESTERN AUSTRALIA a] 
advice call on your local Manly Stat. Suppliers MANLY 977-2316 
anly Stat. suppliers Applied Data Control Datas. Comp. Acc. PERTH 325-! 
dealer to help you select the cect FULLERTON 79-9211 | 
best system for your needs Micro Visions KINGSFORD 662-4063 Micro Data EAST PERTH 328-1 
| Tel-Professional Consulting Services Ktronics ADELAIDE 212-5505 Micro Solutions SUBIACO 381- 
AUSTRALIAN DISTRIBUTOR-TCG, FRENCHS FOREST 452-1540 TASMANIA Compulator PERTH 321-6319 
31 Hume Street, Crows Nest, N.S.W. 2065 Trevor Burton Pty. Ltd Aero Electronics HOBART 34-8232 
| AH 94-3861 
AUTHORISED AUSTRALIAN AGENTS iininaecis eee i Saar a rare NEW ZEALAND DISTRIBUTOR 
NEW SOUTH WALES MERRYLANDS 682-3325 Tsien ea Computer Consultants, 3 Wolfe 
bank emeionics Smalen SIONS 34-7511 Auckland. N.Z. Phone: 79-8345 
Bamba ctro | 
NEWCASTLE 2-4996 AUSTRALIAN CAPITAL TERRITORY Computer Consultants, Queen: 
Compuserve (Ncle) Pty. Ltd. MES CANBERRA 82-1774 VICTORIA Lower Hutt. N.Z. Phone: 69-497 
NEWCASTLE 61-2579 QUEENSLAND Comp Co-Ord. Services | 
Dwell Electronics HORNSBY 487-3111 Dialog BRISBANE 221-4898 BORONIA 762-5937 | 


Hi-Fi Gallery TAMWORTH 66-2525 Johansen Systems MT. ISA 43-5582 Computerware FOOTSCRAY 68-4200 


